[已解决]在线等,求修改合并单元格的循环,谢了.

nysong10086 · 发表于 2013-3-21 16:15

  ' If (i Mod 24) = 1 Then
   ' k = k + 1
   ' Cells(i, 1).Resize(24).Merge
   'Cells(i, 1) = Sheets("填表").Cells(k + 1, 1)
   'Brr(i, 1) = Arr(j, 1)    '写入名称
' End If
sheet1中每一行数据对应sheet2中24行结果,想在sheet2中将24行合并生成sheet1一样的标题

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-21 17:52

Sub 合并()
Dim i As Long, k As Long
Dim arr
Application.ScreenUpdating = False
With Worksheets("填表")
arr = .Range("a1").CurrentRegion
End With
With Worksheets("命令")
For i = 2 To UBound(arr)
k = (i - 2) * 24 + 1
.Range("a" & k).Resize(24).Merge
.Range("a" & k) = arr(i, 1)
Next
End With
Application.ScreenUpdating = True
MsgBox "合并完成", vbInformation
End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy · 发表于 2013-3-21 16:33

Sub 合并()
Dim i As Long, k As Long
Dim arr
With Worksheets("填表")
arr = .Range("a1").CurrentRegion
End With
For i = 2 To UBound(arr)
k = arr(i, 1)
k = (k - 1) * 24 + 1
Debug.Print k
Range("a" & k).Resize(24).Merge
Range("a" & k) = "ap" & arr(i, 1)
Next
End Sub

复制代码

hwc2ycy · 发表于 2013-3-21 16:35

Sub 合并()
Dim i As Long, k As Long
Dim arr
With Worksheets("填表")
arr = .Range("a1").CurrentRegion
End With
For i = 2 To UBound(arr)
k = (arr(i, 1) - 1) * 24 + 1
Range("a" & k).Resize(24).Merge
Range("a" & k) = "ap" & arr(i, 1)
Next
End Sub

复制代码

hwc2ycy · 发表于 2013-3-21 16:36

Sub 合并()
Dim i As Long, k As Long
Dim arr
Application.ScreenUpdating = False
With Worksheets("填表")
arr = .Range("a1").CurrentRegion
End With
With Worksheets("命令")
For i = 2 To UBound(arr)
k = (arr(i, 1) - 1) * 24 + 1
.Range("a" & k).Resize(24).Merge
.Range("a" & k) = "ap" & arr(i, 1)
Next
End With
Application.ScreenUpdating = True
MsgBox "合并完成", vbInformation
End Sub

复制代码

nysong10086 · 发表于 2013-3-21 16:43

hwc2ycy 发表于 2013-3-21 16:36

执行不了,还是有错误啊

hwc2ycy · 发表于 2013-3-21 16:45

nysong10086 发表于 2013-3-21 16:43
执行不了,还是有错误啊

有错贴图，我这运行正常的，就用你的附件。

nysong10086 · 发表于 2013-3-21 16:49

hwc2ycy 发表于 2013-3-21 16:45
有错贴图，我这运行正常的，就用你的附件。

k = (arr(i, 1) - 1) * 24 + 1 提示类型不匹配

hwc2ycy · 发表于 2013-3-21 16:50

执行时，当前活动表为要合并的工作表，要么就用4楼代码，锁定工作表。

nysong10086 · 发表于 2013-3-21 16:55

hwc2ycy 发表于 2013-3-21 16:50
执行时，当前活动表为要合并的工作表，要么就用4楼代码，锁定工作表。

4楼的代码也试了,也有错误提示跟那个一样

hwc2ycy · 发表于 2013-3-21 17:29

你点调试，再截图我看看。
你源数据里是不是有非数字的情况？

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

[已解决]在线等,求修改合并单元格的循环,谢了.

相关帖子

点评