[發問] 關於Union的用法及修改，兩個問題請教

chiang0320

下載 (21.43 KB)

2016-11-6 23:50

下載 (21.97 KB)

2016-11-6 23:50

下載 (13.39 KB)

2016-11-6 23:56

Union(1).zip (12.98 KB)

下載次數: 12

2016-11-7 00:03

兩個問題請教老師教導，謝謝!
以下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

chiang0320

回復 1# chiang0320


感謝 GBKEE 及 c_c_lai 兩位前輩的指導，謝謝!