VBA 如何抓取某列的的資料?

2016-04-06 3:58 am
假設由A欄判斷, 如果A欄判斷為1, 那就把A欄和B欄的數值, 複製到另一個sheets
請問用VBA怎麼寫成一個程式呢??
A欄 B欄
1 0
1 1
1 0
2 2
2 3
3 1

回答 (1)

2016-04-06 5:27 am
✔ 最佳答案
基本上這樣
Sub xx()
For i = 1 To [A65536].End(xlUp).Row
If Cells(i, 1) = 1 Then
st2 = Sheets("102").[A65536].End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 2)).Copy Sheets("102").Cells(st2, 1)

End If
Next
End Sub


收錄日期: 2021-05-04 02:00:47
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20160405195826AAjh29H

檢視 Wayback Machine 備份