Excel中 - 複製從一個小區到另一個文本而不刪除原始內容

Question

基本上我有以下scenareo：

2列，600行數據。

我需要複製第2列中的數據，並將其放在第1列中內容的結尾處，以顯示相同的行。這將導致第1列有其原始內容加上第2列的額外內容。

任何有關我如何做到這一點的信息將不勝感激。

在此先感謝！

Answer 1

作爲這個問題收到的若干意見（10,000+）我認爲也共享另一個很重要的，更簡單的解決方案：

在小區C1使用以下公式：

=(A1 & B1) 

這會將單元格A1和B1的內容複製到單元格C1中。將公式拖到所有其他行（在我的案例中爲行600）。

然後複製該列並使用「僅限值」進行粘貼。

然後，您將在列C中包含單元格中列A和列B的內容的單元格。

Answer 2

這是一個簡單的VBA形式。只需創建一個宏，將這些行添加到它。然後選擇您的原始列（您調用第1列），然後運行宏。

a = ActiveCell.Value 
b = ActiveCell(1, 2).Value 

ActiveCell.Value = a + b 

括號內的單元格引用是相對的說法 - 1，2是指「同一行，一列權」所以你可以改變，如果你需要。你可以通過如此擴大使其循環：

Do 
a = ActiveCell.Value 
b = ActiveCell(1, 2).Value 

ActiveCell.Value = a + b 

ActiveCell.Offset(1, 0).Select 

If ActiveCell.Value = "" Then 
    Exit Do 
End If 
Loop 

該循環將繼續，直到找到一個空白單元格，然後它就會停止。所以確保你有一個空白的單元格，你想停下來。你也可以在結合的行中添加額外的字符..所以在上面的例子中它是ActiveCell.Value = a + b，但你可以使它ActiveCell.Value = a + " - " + b或其他任何可以幫助的。

Answer 3

這應該從第2列中的值，並依次將它們放置在第1列

Sub test() 
Dim rng1 As Range 
Dim rng2 As Range 
Dim cl As Range 
Dim r As Long 

Set rng1 = Range("A1", Range("A1048576").End(xlUp)) 
Set rng2 = Range("B1", Range("B1048576").End(xlUp)) 

r = rng1.Rows.Count + 1 

For Each cl In rng2 
    Cells(r, 1).Value = cl.Value 
    r = r + 1 
Next 

End Sub 

Answer 4

的底部，只要保持它的簡單。這是代碼。

Sub copyCol() 
    Dim lastRow As Long 
    lastRow = Range("A65000").End(xlUp).Row 
    Range("B1:B" & lasrow).Copy Range("A" & lastRow).Offset(1, 0) 
End Sub