将数据从一张纸复制到另一张纸上，但在一张空白列中

Question

我有一张表格（让我们称之为sheet1）在打开时得到更新。所以我们说在sheet1我：

a1 one 
a2 two 
a3 three 

Sheet1已经配置为开放更新数据。

我想要那个数据，然后在下一个可用空白行填入Sheet2。因此，如果我已有a1-a3中的数据，我希望将这些新数据复制到b1-b3等等。

有关我如何实现这一目标的任何想法？ 谢谢！ Ken

Answer 1

你应该提交问题的代码，而不是要求提供问题的代码，但这是一个非常简单的问题。如果需要调整以适应您的需求，请尝试调整它。如果您遇到问题，请提出一个更具体的新问题，或者问题的原因。

无论如何，你需要一些VBA：

Sub someVBA() 

    'Set the sheets we are working with - change as needed 
    Dim s1 As Worksheet, s2 As Worksheet 
    Set s1 = Worksheets("Sheet1") 
    Set s2 = Worksheets("Sheet2") 

    'Find the last column in s2 by going way out to the end of 
    ' of the sheet and using end(xlToLeft) and adding 1 more column 
    ' to that. That's the next blank column 
    Dim lastCol As Integer 
    lastCol = s2.Cells(1, 1000).End(xlToLeft).Column() + 1 

    'Copy it over 
    s2.Columns(lastCol).Value = s1.Columns(1).Value 

End Sub