我使用的代碼根據 B 列下拉串列中的某個選定值成功地將行復制到另一個作業表。 但是，如果第一列 (A) 中的任何單元格為空，即使 B 列中的某個值是'true' 它不會復制過來。
無論該行中的第一個單元格為空，這里有人知道如何成功復制該行嗎？我正在使用的代碼如下。
謝謝 ：）
Sub ClearandCopyActiveFeedback()
Sheet3.Range("A3:Z2000").ClearContents
Dim StatusCol As Range
Dim Status As Range
Dim PasteCell As Range
Set StatusCol = Sheet2.Range("B3:B2000")
For Each Status In StatusCol
Set PasteCell = Sheet3.Range("A1").End(xlDown).Offset(1, 0)
If Status = "Active" Then Status.EntireRow.Copy PasteCell
Next Status
End Sub
uj5u.com熱心網友回復：
PasteCell每次復制后向下移動。
Option Explicit
Sub ClearandCopyActiveFeedback()
Const MAXROW = 2000
Dim PasteCell As Range, cell As Range
Dim rowLast As Long, n As Long
With Sheet3
.Range("A3:Z" & MAXROW).ClearContents
Set PasteCell = .Range("A3")
End With
With Sheet2
rowLast = .Range("B" & MAXROW).End(xlUp).Row
For Each cell In .Range("B3:B" & rowLast)
If cell = "Active" Then
cell.EntireRow.Copy PasteCell
Set PasteCell = PasteCell.Offset(1)
n = n 1
End If
Next
End With
MsgBox n & " rows copied"
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/339878.html