Question

我想从同一工作簿中的sheet1向sheet2发送信息。我可以在第一行和第二行（我只是将第2行的代码加倍）但我不确定如何显示所有行。如果sheet1上的那一行有数量（QTY），我还需要它才能在工作表上显示。

这是我到目前为止所提供的内容。非常感谢（初学者）。

我的代码在这里：

Private Sub CommandButtonl_Click()

Dim DESCRIPTION As String, PRICE As String
Worksheets("Sheetl").Select
QTY = Range("R30")
PARTNOMB = Range("J30")
DESCRIPTION = Range("N30")
PRICE = Range("Q30")
Worksheets("Sheet2").Select
Worksheets("Sheet2").Range("C26").Select
If Worksheets("Sheet2").Range ("C26").Offset (1, 0) <> "" Then
    Worksheets("Sheet2").Range("C26").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = QTY
ActiveCell.Offset(0, 6).Select
ActiveCell.Value = PARTNOMB
ActiveCell.offset(0, 5).Select
ActiveCell.Value = DESCRIPTION
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = PRICE
Worksheets("Sheet1").Select
QTY = Range("R31")
PARTNUMB = Range("J31")
DESCRIPTION = Range("N31")
PRICE = Range("031")
Worksheets("Sheet2").Select
Worksheets("Sheet2").Range("C26").Select
If Worksheets("Sheet2").Range ("C26").Offset(1, 0) <> "" Then
    Worksheets("Sheet2").Range("C26").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = QTY
ActiveCell.Offset(0, 6).Select
ActiveCell.Value = PARTNOMB
ActiveCell.Offset(0, 5).Select
ActiveCell.Value = DESCRIPTION
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = PRICE

使用VBA在Excel中将信息从sheet1传输到sheet2

0 个答案: