Sub 矩形1_单击()
Dim i%, arr()
i = Sheets(2).[a65536].End(3).Row + 1
arr = Range("c7:c12")
Range("c7:c12").ClearContents
Sheets(2).Cells(i, 1).Resize(1, 6) = Application.Transpose(arr)
End Sub
第1个回答 2012-10-17
Sub 矩形1_单击()
Dim i%, arr()
i = Sheets(2).[a65536].End(3).Row + 1'得到第二个工作表A列最后一个非空单元格下一行行号
arr = Range("c7:c12")'把当前工作表C7:C12单元格区域数据赋值给数组arr
Range("c7:c12").ClearContents'清空C7:C12单元格区域数据
Sheets(2).Cells(i, 1).Resize(1, 6) = Application.Transpose(arr)'把数组arr数据转置写入第二个工作表的最后一行下一行的A到F列中resize(1,6)即1行6列
End Sub追问
Dim i%, arr()
i = Sheets(2).[a65536].End(3).Row + 1'得到第二个工作表A列最后一个非空单元格下一行行号
arr = Range("c7:c12")'把当前工作表C7:C12单元格区域数据赋值给数组arr
Range("c7:c12").ClearContents'清空C7:C12单元格区域数据
Sheets(2).Cells(i, 1).Resize(1, 6) = Application.Transpose(arr)'把数组arr数据转置写入第二个工作表的最后一行下一行的A到F列中resize(1,6)即1行6列
End Sub追问
请问能否帮我写下另外一个表格的存储代码？
第2个回答 2012-10-18
样表收到：
用此代码吧：
Sub 按钮1_单击()
Dim irowt As Long
irowt = Sheet2.Range("b65536").End(xlUp).Row + 1
Range("b8:l17").Copy Sheet2.Range("b" & irowt)
Range("b8:G17").ClearContents
Range("I8:l17").ClearContents
End Sub本回答被提问者采纳
用此代码吧：
Sub 按钮1_单击()
Dim irowt As Long
irowt = Sheet2.Range("b65536").End(xlUp).Row + 1
Range("b8:l17").Copy Sheet2.Range("b" & irowt)
Range("b8:G17").ClearContents
Range("I8:l17").ClearContents
End Sub本回答被提问者采纳
