工作表之间的Excel复制行

Question

我正在使用以下宏在工作表之间复制行值。要复制的单元格从列“C”和行“4”开始。在列“C3”上列出了标题名称。这个值不能被复制到我的目标单元格中​​。当在“C4”中输入值时，下面的代码工作正常。当我将单元格“C4”留空并运行我的宏时，C3中的标题名称正被复制到我的目标单元格中​​。在下面的示例中，我的目标列和行是“F4”。

请帮我一把。 宏代码：

Sub Process_Copy() 

Dim row_start, row_end As Long 
Dim col_start, col_end As String 
Dim col_target, row_target As String 
Dim ws_src, ws_target As String 

col_start = "C" 
col_end = "C" 
row_start = 4 
ws_src = "Sheet1" 
ws_target = "Sheet2" 
col_target = "F" 
row_target = "4" 
row_end = Worksheets(ws_src).Range(col_start & Rows.Count).End(xlUp).Row ' to find last line 
Worksheets(ws_src).Range(col_start & row_start & ":" & col_end & row_end).Copy 
Worksheets(ws_target).Range(col_target & row_target).PasteSpecial xlPasteValues 

End Sub 

感谢。

Answer 1

row_end = Worksheets(ws_src).Range(col_start & Rows.Count).End(xlUp).Row ' to find last line 

If row_end> = row_start Then 
    Worksheets(ws_src).Range(col_start & row_start & ":" & col_end & row_end).Copy 
    Worksheets(ws_target).Range(col_target & row_target).PasteSpecial xlPasteValues 
End If