如何使用以下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并运行该宏。