本帖最後由 chiang0320 於 2016-11-7 00:04 編輯
 Union(1).zip (12.98 KB)
兩個問題請教老師教導，謝謝!
以下vba程式碼，條件--->將大於30的儲存格選取
1. 怎麼修改成選取 "整列(rows) "
2. 如果條件改成小於2的儲存格選取，會顯示錯誤， "請問怎麼修改成，如果沒有在條件內的資料則跳過"
Public Sub QQQ()
Dim i As Long, Target As Range
For i = 2 To 11
If Cells(i, "B") > 30 Then
If Target Is Nothing Then
Set Target = Cells(i, "B")
Else
Set Target = Union(Target, Cells(i, "B"))
End If
End If
Next
Target.Select
End Sub |
發表於 2016-11-6 23:59
| 
