[英]Excel-VBA: Ignore hidden rows in a for loop
我正在尋找問題..但找不到好東西。
我試圖將某些值從工作表1復制到工作表2。在工作表1(“ xy”)中沒有隱藏的行。 在工作表2(“地址”)中。
我將使用for循環來做到這一點:
end = cells(rows.count, 1).end(xlUp).row
Row = 1
For i = 11 To end
Sheets("xy").Select
Cells(Row, 19).Copy
Sheets("Adress").Select
Cells(i, 19).PasteSpecial xlPasteValues
Row = Row + 1
Next i
問題是循環仍在使用sheet2(“ Adress”)中的隱藏行...如何跳過它們?
謝謝你的幫助 :)
最簡單的方法是使用多個粘貼命令分別粘貼,而不是一次粘貼,因為您可以手動跳過隱藏的行。 以下代碼應該可以自動完成此工作:
end = cells(rows.count, 1).end(xlUp).row
Row = 1
For i = 11 To end
If Not Worksheet("Adress").Cells(i, 19).hidden Then
Worksheet("Adress").Cells(i, 19) = Worksheet("xy").Cells(Row, 19)
Row = Row + 1
End If
Next i
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.