從列A（Sheet1）複製到列B（Sheet2），低於之前柱狀數據B

Question

如何將數據從列A（Sheet1）複製到列B（Sheet2）而不修改柱狀圖B上的先前數據？先謝謝你。

Answer 1

下面是一個通用的答案，它不會替換單元格，但會查找下一個空單元格。我試着把意見放在那裏，這有助於理解它。

Sub CopySheet1toSheet2() 

    Dim CurrRow As Integer 
    Dim CurrCol As Integer 
    Dim TargetRow As Integer 
    Dim TargetCol As Integer 

    Dim Sheet1 As String 
    Dim Sheet2 As String 

    Sheet1 = "Sheet1" ' name to your source sheet name 
    Sheet2 = "Sheet2" ' change to your target sheet name 
    CurrRow = 1 
    CurrCol = 1 ' This is column A 

    TargetRow = 1 
    TargetCol = 2 ' This is column B 

    ' Cycle through all rows in Col A until empty field reached 
    While Sheets(Sheet1).Cells(CurrRow, CurrCol) <> "" 

     ' See if there's a value in column B in the same row - if so, go to the next row 
     While Sheets(Sheet2).Cells(TargetRow, TargetCol) <> "" 
      TargetRow = TargetRow + 1 
     Wend 

     ' Copy the value from the source to the target 
     Sheets(Sheet2).Cells(TargetRow, TargetCol) = Sheets(Sheet1).Cells(CurrRow, CurrCol) 

     ' Move to the next source and target rows 
     CurrRow = CurrRow + 1 
     TargetRow = TargetRow + 1 

    Wend 

End Sub