VB 篩選後判斷無資料的語法

samwang

請問VB 語法如何寫，因為小弟只會用錄製 對程式不太懂
條件:A欄都是數字，步驟如下
1. 在A1會先條件篩選後
2. 選擇A1往下找到第一筆資料位置   Offset(1,0)
3. 複製到最後一筆資料

問題來了，有時候條件篩選後是沒有資料
我想先做一個判斷在步驟2和3
就是沒資料時就不要執行步驟3
例如如下，當然是不正確的語法
If .Cells( Range("A1").offset(1,0), ) .value <>Empty then
...
..
End if

samwang

回復 2# GBKEE

謝謝版主，已經可以了，不一樣的思路解題但結果是相同的

GBKEE

回復 1# samwang
試試看

1. If Range("A1").End(xlDown).Row <> Rows.Count Then  '條件成立: 篩選後有資料
   
2.     'End(xlDown);往下到最後有資料的儲存格,Row:儲存格的列號
   
3.     'Rows.Count:工作表的總列數
   
4.    
   
5. End If

複製代碼