有没有办法使用 VBA 合并 excel 中的相关单元格？

Question

好的，所以，我使用 Excel 为我的企业生成发票，VBA 通过自动发布发票的各种详细信息（如日期、发票编号、买家姓名和数量）来帮助我跟踪我的销售。

问题是日期、发票编号和买家只有一个单元格，但数量占用了我的多行，因此我必须手动 select 并合并其他单元格。

这是我的代码 -

 Sub registerdrums()
   Set ws1 = Worksheets("performa")
   Set ws2 = Worksheets("billing")
    drum = ws1.Range("r25").Value
'if the item sold is drum
If drum = "WD" Then
'if the row which is next
nextrow = ws2.Cells(Rows.Count, 4).End(xlUp).Row + 1
' sold items
ws1.Range("p25:q45").Copy
ws2.Cells(nextrow, 4).PasteSpecial Paste:=xlValues
'date
ws2.Cells(nextrow, 1).Value = ws1.Range("E8")
'invoice number
ws2.Cells(nextrow, 2).Value = ws1.Range("E7")
'buyer code
ws2.Cells(nextrow, 3).Value = ws1.Range("Q20")
ws1.Activate
Else: If drum <> "WD" Then ws1.Activate
End If
End Sub