如何使用以下excel vba代碼？

Question

Sub MergeRanges() 
    Dim rng As Range, txt As String 
    For Each rng In Selection 
     txt = txt & rng.Value2 
    Next 
    Application.DisplayAlerts = False 
    Selection.Merge 
    Selection = txt 
    Application.DisplayAlerts = True 
End Sub 

當合並單元格時，我想保留單元格中的所有數據。我google了一段時間，找到上面的代碼。但我不知道如何使用它？和他們的意義是什麼。謝謝。

Answer 1

設置：

1. 打開VBA編輯器（工具>宏> Visual Basic編輯器）（快捷Alt鍵 - F11）
2. 插入>模塊
3. 將代碼粘貼到你的新模塊。

用途：

1. 選擇要合併單元格。
2. 工具>宏>宏...（快捷鍵Alt鍵 - F8）>選擇MergeRanges>運行

如果你所需的宏與 「特殊格式」 如日期工作，那麼你應該將.Value2更改爲.Text。

Answer 2

突出顯示您要合併（不是日期或貨幣）的一些單元格，然後按Alt + F8選擇此宏。它應該（我沒有測試）將單元格內容合併到一個單元格中，而不會丟失每個單元格中的任何內容。

確保先按下Alt + F11打開VBE並右鍵單擊資源管理器並選擇添加模塊，將該代碼插入到文件中。然後粘貼此代碼。確保您的宏安全性足夠低，可以運行它。

Answer 3

• 在Excel

  ，按下Alt + F8

• 使用對話框添加一個空宏 「MergeRanges」

• 上面添加你的代碼。

• 要運行代碼，請選擇一些要合併的單元格，再次按Alt-F8並運行該宏。