[原创][分享]动态合并单元格

cgygsyx · 发表于 2008-8-23 16:11

本人在工作中经常要合并多个单元格，excel 本身该功能不是十分完美，经过查阅资料并参照电脑报相关转载，终于调试成功，希望能对大家有所帮助！！

lma4piGd.rar (5.25 KB, 下载次数: 243)

jiajia168 · 发表于 2008-8-23 16:34

[em08][em08]非常不错！

三十而立 · 发表于 2008-8-23 17:10

真好，可以把它改成自定义函数使用

mmf2008 · 发表于 2009-7-4 16:09

下载了但按了没反应.

mobuli · 发表于 2009-7-5 07:18

Sub 合并单元格()

      Application.DisplayAlerts = False

      With Selection
      seltotal = ""
      For i = 1 To Selection.Count
      seltotal = seltotal & Selection.Cells(i).Value

      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter

      Next
      .Value = seltotal
      .Merge
      End With
      Application.DisplayAlerts = ture
End Sub
不错的代码

lbl016 · 发表于 2009-7-5 08:36

非常不错！

wskcel · 发表于 2009-7-5 15:32

谢谢分享................

三戒 · 发表于 2009-7-22 17:27

Sub 合并单元格()
Dim objCell As Range
Dim strCellVulue As String
strCellVulue = ""

For Each objCell In Selection
On Error Resume Next
strCellVulue = strCellVulue & objCell
If Err.Number <> 0 Then
  objCell.NumberFormat = "General"
  strCellVulue = strCellVulue & objCell
  Err.Clear
End If
Next

With Selection
.ClearContents
.MergeCells = True
End With

ActiveCell = strCellVulue

End Sub

lmswy · 发表于 2009-7-22 20:09

好東西哦!可在我的2007中沒有反應啊？！

ningyong58 · 发表于 2010-2-2 20:10

先收藏,看以后在哪里用.

		自动登录	找回密码
密码			免费注册