拜托，我的代碼需要一些幫助。我使用 VBA 過濾了一些行，并且想只復制兩列而不是所有列。
Public Sub CheckPrKey()
lastRow = Worksheets("ETM_ACS2").Range("A" & Rows.Count).End(xlUp).Row
For r = 2 To lastRow
If Worksheets("ETM_ACS2").Range("I" & r).Value = "Y" And Worksheets("ETM_ACS2").Range("N" & r).Value < "100" Then
Worksheets("ETM_ACS2").Range("D, N" & r).Copy
**Worksheets("ETM_ACS2").Rows(r).Copy**
Worksheets("dashboard").Activate
lastRowdashboard = Worksheets("dashboard").Range("B" & Rows.Count).End(xlUp).Row
Worksheets("dashboard").Range("A" & lastRowdashboard 1).Select
ActiveSheet.Paste
End If
Next r
ActiveCell.Offset(1, 0).Select
End Sub
uj5u.com熱心網友回復：
我不確定這是否有道理，但請嘗試。
Public Sub CheckPrKey()
lastRow = Worksheets("ETM_ACS2").Range("A" & Rows.Count).End(xlUp).Row
lastRowdashboard = Worksheets("dashboard").Range("B" & Rows.Count).End(xlUp).Row
With Worksheets("ETM_ACS2")
For r = 2 To lastRow
If .Range("I" & r).Value = "Y"
If .Range("N" & r).Value < "100" Then
Worksheets("dashboard").Range("A" & lastRowdashboard 1)=.Range("D" & r)
Worksheets("dashboard").Range("B" & lastRowdashboard 1)=.Range("N" & r)
lastRowdashboard = lastRowdashboard 1
End if
End If
Next r
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/489353.html
標籤：擅长 vba excel公式 excel-2010 vba6
上一篇：查找列并按文本過濾