返回列表 上一主題 發帖

[發問] 請教範圍的設定vba

[發問] 請教範圍的設定vba

以下是vba
' 巨集1 巨集
'

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

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

回復 1# sto3688


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

TOP

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



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

TOP

  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
複製代碼

TOP

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

TOP

        靜思自在 : 脾氣嘴巴不好,心地再好也不能算是好人。
返回列表 上一主題