標題: [發問] 請教範圍的設定vba [打印本頁]

---

作者: sto3688    時間: 2013-2-12 10:57     標題: 請教範圍的設定vba

以下是vba碼
' 巨集1 巨集
'

'
    Range("F2:BA2").Select
    Selection.Copy
End Sub

想請教在f2:ba2範圍內,想略過資料是---的儲存格,該加入什麼程式碼?
感謝高手指點,謝謝~

---

作者: boyao    時間: 2013-2-13 14:52

回復 1# sto3688


Range("F2:H2,K2:BA2").Select
向上式 I2.J2 就是略過的

---

作者: sto3688    時間: 2013-2-13 15:27

感謝回復,可能我表達不佳,被誤解意思了

[attach]14165[/attach][attach]14165[/attach]

我是想用vba   Range("i2:n2").Select 這選取範圍內,能自動排除資料為"---"的儲存格,也就是如上圖中
讓 vba 只選擇k2跟l2這2個儲存格,不知道有沒有適合的程式碼,感謝

---

作者: Joforn    時間: 2013-2-18 00:48

1. Sub TestCopy()
   
2.   Dim Range1    As Range
   
3.   Dim RangeCopy As Range
   
4.   
   
5.   For Each Range1 In Range("F2:BA2")
   
6.     Select Case Trim$(Range1.Text)
   
7.       Case vbNullString
   
8.       Case "---"
   
9.       Case Else
   
10.         If RangeCopy Is Nothing Then
    
11.           Set RangeCopy = Range1
    
12.         Else
    
13.           Set RangeCopy = Union(RangeCopy, Range1)
    
14.         End If
    
15.     End Select
    
16.   Next Range1
    
17.   
    
18.   If RangeCopy Is Nothing Then
    
19.     MsgBox "沒有合適的單元格！"
    
20.   Else
    
21.     With RangeCopy
    
22.       .Select
    
23.       .Copy
    
24.     End With
    
25.   End If
    
26. End Sub

複製代碼

---

作者: sto3688    時間: 2013-2-18 10:34

測試後可以copy了,感謝Joforn 大~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)