我需要一个新的汇总表,一旦提交按钮被点击。
的数据
我试图复制第一行,不知道如何去新的列所需的。新的数据应粘贴到空列。
下面的代码适用于行。
Sub data_input2()
ws_output = "Sheet3"
next_row = Sheets(ws_output).Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Sheets(ws_output).Cells(next_row, 1).Value = Range("B1").Value
Sheets(ws_output).Cells(next_row, 2).Value = Range("B2").Value
Sheets(ws_output).Cells(next_row, 3).Value = Range("B3").Value
Sheets(ws_output).Cells(next_row, 4).Value = Range("A8").Value
Sheets(ws_output).Cells(next_row, 5).Value = Range("B8").Value
Sheets(ws_output).Cells(next_row, 6).Value = Range("C5").Value
Sheets(ws_output).Cells(next_row, 7).Value = Range("C6").Value
Sheets(ws_output).Cells(next_row, 8).Value = Range("C7").Value
Sheets(ws_output).Cells(next_row, 9).Value = Range("C8").Value
End Sub
字符串
点击提交后,它应该看起来像这样。
的
1条答案
按热度按时间70gysomp1#
根据需要进行调整…
字符串