如果單元格爲空時如何複製行？

我們使用Excel文件來跟蹤藥物治療。一旦藥物治療結束，我會在K列中寫下「是」（可能會在稍後將其更改爲日期）。我已經爲每個月準備了一張表（名爲：01 - 12），並且我希望它能夠自動將K列中沒有條目的行復制到下一個電子表格中。範圍是3A:K22。（行1 & 2有數據不應該被修改，我希望我已經描述了足夠的細節讓你理解，如果沒有，我會很樂意澄清任何誤解如果單元格爲空時如何複製行？

來源

2015-07-01 Ezikiel Hazegaiah

如果我理解正確，你想複製每一行，其中在k列的單元格是空的？

Dim rCell As Range, rng As Range, NextRow As Long 
Set rng = Workbook.Sheets("SheetName").Range("K3:K22") 

'loop through each K cell 
For Each rCell In rng 
    If IsEmpty(rCell) Then 
     'copy that row 
     Range("A" & rCell.Row & "K" & rCell.Row).Copy 
     'if desired here can be code to check the date to see which sheet to insert into 
     NextRow = Workbook.Sheets("MonthSheet").Range("A" & Rows.Count).End(xlUp).Offset(1).Row 
     Workbook.Sheets("MonthSheet").Range("A" & NextRow & "K" & NextRow).Paste 
    End If 
Next rCell

這將檢查每一個細胞在K列，看它是否爲空，如果是，將它複製到一個空白行中的月Sheet

來源

2015-07-01 11:24:34 Evan

謝謝Evan。這看起來很有前途。我一直在試圖實現這個代碼，但是當使用它時，我得到一個運行時錯誤，並且不知道如何修正它。調試器停在此行：Range（「A」＆rCell.Row＆「K」＆rCell.Row）.Copy。有人可以向我解釋如何使用它？ –

什麼是錯誤編號和描述？ – Evan

運行時錯誤1004 –

如果單元格爲空時如何複製行？

回答

相關問題