excel - VBA 将数据粘贴到下一行

Question

我不经常使用 VBA，但需要完成这项任务。我不知道如何将输入表单中的数据粘贴到日志电子表格中。这是我到目前为止所拥有的。

有用。唯一的问题是它覆盖了日志中的内容。

Sub RangeCopy_Transpose()

  
    Dim shRead As Worksheet
    Dim lastrow As Long
    Set shRead = Sheets("Log")
  
    Range("B3, B5, B7, B9, B11, B13, B15, B17,B19,B21,B23,B25").Copy
    shRead.Range("A2").PasteSpecial Transpose:=True
    
    Range("B3:B26").ClearContents
    
End Sub

Answer 1

你快到了。您需要在工作表上找到最后一个数据输入单元格Log Column A。然后将数据粘贴到下一个空单元格。试试下面的子。

Sub RangeCopy_Transpose()
Dim shRead As Worksheet
Dim lastrow As Long

    Set shRead = Sheets("Log")
    
    'Detect last row with data.
    lastrow = shRead.Cells(shRead.Rows.Count, "A").End(xlUp).Row
    
    Range("B3, B5, B7, B9, B11, B13, B15, B17, B19, B21, B23, B25").Copy
    shRead.Range("A" & lastrow + 1).PasteSpecial Transpose:=True 'Lastrow+1 will paste next cell from last data cell.
    
    Range("B3:B26").ClearContents
    
End Sub