如何使用以下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编辑器(工具>宏> Visual Basic编辑器)(快捷方式Alt- F11)
2. 插入>模块
3. 将代码粘贴到新模块中.

使用:

1. 选择要合并的单元格.
2. 工具>宏>宏...(快捷方式Alt- F8)>选择MergeRanges>运行

如果您希望宏使用"特殊格式"(如日期),则应更改.Value2为.Text.