如何使用以下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

合并单元格时，我想保留单元格中的所有数据。我用谷歌搜索了一下，找到了上面的代码。但我不知道如何使用它？他们的意思是什么。谢谢。

Answer 1

设定：

1. 打开VBA编辑器（工具＆gt;宏＆gt; Visual Basic编辑器）（快捷键 Alt - F11 ）
2. 插入＆gt;模块
3. 将代码粘贴到新模块中。

使用：

1. 选择要合并的单元格。
2. 工具＆gt;宏＆gt;宏...（快捷键 Alt - F8 ）＆gt;选择MergeRanges＆gt;运行

如果您希望宏使用“特殊格式”（例如日期），则应将.Value2更改为.Text。

Answer 2

突出显示要合并的某些单元格（不是日期或货币），然后按Alt + F8选择此宏。应该（我没有测试）将单元格内容合并到一个单元格中，而不会丢失每个单元格中的任何内容。

确保首先通过按Alt + F11打开VBE将该代码插入文件中，然后右键单击资源管理器并选择添加模块。然后粘贴此代码。确保您的宏安全性足够低以运行它。

Answer 3

在Excel中

• ，按Alt-F8

• 使用该对话框添加空宏“MergeRanges”

• 在上面添加您的代码。

• 要运行代码，请选择要合并的某些单元格，再次按Alt-F8并运行该宏。