簡體   English   中英

Excel-VBA:忽略for循環中的隱藏行

[英]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.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM