分别按照各列合并单元格.

【花开花落】 · 发表于 2009-12-6 17:26

如图片的效果,请帮忙看看.

合并单元格.rar (8.83 KB, 下载次数: 20)

zhc19620430 · 发表于 2009-12-6 18:02

哈哈，我也不会，但我知道用录制宏可以达到你的目的，我已经试过了。
Sub  跨列剧中()

Range("A2:D2,A5:D5,A15:D15,A17:D17").Select
Range("A17").Activate
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
Range("A2:D2,A5:D5,A15:D15,A17:D17,A20:D20,A22:D22").Select
Range("A22").Activate
With Selection
      .HorizontalAlignment = xlCenterAcrossSelection
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
End With
End Sub

[ 本帖最后由 zhc19620430 于 2009-12-6 18:07 编辑 ]

【花开花落】 · 发表于 2009-12-10 15:31

谢谢楼上的朋友!
你理解错了.
别人给写了以段代码是连序列的,不连续的我不会改了.

Sub aa()
Dim rng As Range
Dim i As Long
Dim j As Long
Dim x As Long
x = [a65536].End(3).Row
For j = 1 To 2
For i = 1 To x
If Cells(i, 1) <> "计" Then
If Cells(i, j) <> "" Then
If Not rng Is Nothing Then
rng.Merge
End If
Set rng = Cells(i, j)
Else
If rng.Count > 0 Then
Set rng = Union(rng, Cells(i, j))
End If
End If
End If
Next i
Next j
rng.Merge
Set rng = Nothing
End Sub

复制代码

蓝桥玄霜 · 发表于 2009-12-10 19:26

Sub aa()
Dim rng As Range
Dim i As Long
Dim j As Long
Dim x As Long
x = [a65536].End(3).Row
For j = 1 To 4
If j = 3 Then GoTo 100
For i = 1 To x
If Cells(i, 1) <> "计" Then
If Cells(i, j) <> "" Then
If Not rng Is Nothing Then
rng.Merge
End If
Set rng = Cells(i, j)
Else
If rng.Count > 0 Then
Set rng = Union(rng, Cells(i, j))
End If
End If
End If
100:
Next
Next
rng.Merge
Set rng = Nothing
End Sub

复制代码

【花开花落】 · 发表于 2009-12-11 15:09

谢谢"蓝桥玄霜"斑竹!
现在还有个新的问题,是这样的:
您的代码只适合中间相隔一列的情况.
如果相隔2列该怎么改呢?
我试验了一下,If j = 3 TO 4 Then GoTo 100 不行
If j = 3 and 4 Then GoTo 100 也不行.

蓝桥玄霜 · 发表于 2009-12-11 15:30

If j = 3 or j= 4 Then GoTo 100

【花开花落】 · 发表于 2009-12-11 21:34

再次感谢.

带着好奇的心理再次发问,

If j = 3 Or j = 4 Or j = 5 Or j = 6 Or j = 7 Then GoTo 100
如果有5列甚至更多是不是一直 or 下去?
这样的代码看起来和罗列积木一样,有没有简写的办法呢?

ssj706948 · 发表于 2009-12-11 23:53

"蓝桥玄霜"老师，能抽空加上注释，让莱鸟增强

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

[讨论] 分别按照各列合并单元格.