1
基本上,它会检查ws2中的每一行,其中列=“更新”然后提取特定列数据并将其引发到ws1中的相应单元格中。这是第一次实施,所有事情都顺利进行,现在由于某种原因需要一点时间才能完成。Excel VBA,for循环忽略隐藏行
Dim LastRow As Long, CurRow As Long, DestRow As Long, DestLast As Long
Dim checkstatus As String
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("Dashboard")
Set ws2 = Sheets("TempHRI")
LastRow = ws2.Range("B" & Rows.Count).End(xlUp).Row
DestLast = ws1.Range("E" & Rows.Count).End(xlUp).Row
For CurRow = 2 To LastRow 'Assumes first row has headers
checkstatus = CStr(ws2.Range("AB" & CurRow).Value)
If checkstatus = "UPDATE" Then
'Column that looks up the word "Update" in ws2
If Not ws1.Range("E15:E" & DestLast).Find(ws2.Range("B" & CurRow).Value, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
DestRow = ws1.Range("E15:E" & DestLast).Find(ws2.Range("B" & CurRow).Value, LookIn:=xlValues, LookAt:=xlWhole).Row
End If
ws1.Range("I" & DestRow).Value = ws2.Range("F" & CurRow).Value 'assumes supervisor is in column C in both sheets
End If
Next CurRow
我想在ws1中放置一个过滤器,这样我就可以最小化它需要检查的行数。现在我很确定下面的代码不会忽略隐藏的行。当我运行循环时,我需要帮助调整代码以排除隐藏的行。
只需使用自动筛选后评论添加在Worksheet2上显示[这里](http://stackoverflow.com/questions/11631363/how-to-copy-a-line-in-excel-using-a-specific-word-and-pasting-to-another- excel -s)a然后循环通过该范围 –