开发者

how to use the following excel vba code?

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

when merge cells, i want to remain all 开发者_开发技巧the data in the cells. i googled some time,finding the above code. but i don't know how to use it? and what's the meaning of them. thank you.


Setup:

  1. Open VBA editor (Tools > Macro > Visual Basic Editor) (shortcut Alt-F11)
  2. Insert > Module
  3. Paste the code into your new module.

Use:

  1. Select the cells you want to merge.
  2. Tools > Macro > Macros... (shortcut Alt-F8) > select MergeRanges > Run

If you want the macro to work with "special formats" such as dates, then you should change .Value2 to .Text.


  • in Excel, press Alt-F8

  • use the dialog to add an empty macro "MergeRanges"

  • add your code above.

  • To run the code, select some cells you want to merge, press Alt-F8 again and run that macro.


Highlight some cells you want to merge (not dates or currency) and the press Alt+F8 an select this macro. It should (I didn't test) merge the cell contents into a cell without losing any of the contents that were in each cell.

Make sure to insert that code in the file first by pressing Alt+F11 to open VBE and right click the explorer and choose add module. Then paste this code in. Make sure your macro security is low enough to run it.

0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜