在細胞

Question

添加分號每個值（每一行），我有在單個小區中的下列值讓是A1

1234 
567 
454 

同樣所有A（N）填充有值。 n在1000至各1500

我想這會被轉化爲

1234;567;454 

提供任何捷徑？

Answer 1

編輯：對不起，還沒有看過你的問題正確...

你可以寫一個VBA腳本這樣的：

Sub test() 
    Dim result As String 
    result = Replace(ActiveCell.value, Chr(10), ";") 
    ActiveCell.Offset(1, 0).Select 
    ActiveCell.value = result 
End Sub 

它會採取積極的細胞，替換所有換行符用分號將結果放在下一行。

編輯：另一個版本這樣做對多個小區：

Sub test() 
    Dim value As String 
    Do 
    value = ActiveCell.value 
    If (value = "") Then Exit Do 
    ActiveCell.Offset(0, 1).value = Replace(ActiveCell.value, Chr(10), ";") 
    ActiveCell.Offset(1, 0).Select 
    Loop While (True) 
End Sub 

這個版本將在活動單元格開始，遍歷下的所有單元格，直到它找到一個空單元格。

被替換的值被寫入到原始單元旁邊的單元格中。如果要替換原始值，請刪除.Offset(0, 1)。

第二個參數是要替換的值，它是Chr(10)，在我們的情況下是Newline character。