如何用代码瓜分c列到d列之后的各个列中？

zzpsx · 发表于 2023-3-17 06:58

本帖最后由 zzpsx 于 2023-3-17 07:53 编辑

c列太长，想把c列分割到D列之后的各个列中，每列26个单元格

我自己录制的代码好像也可以，不过太粗陋了一点。

Sub 宏1()
rem 瓜分c列到后面各列
ActiveWindow.SmallScroll Down:=-15
Range("F1").Select
ActiveWindow.SmallScroll Down:=24
Range("F1:F29").Select
Selection.Cut
Range("G1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=27
Range("F30").Select
ActiveWindow.SmallScroll Down:=27
Range("F30:F59").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=-51
Columns("G:G").EntireColumn.AutoFit
Range("H1").Select
ActiveSheet.Paste
Columns("H:H").EntireColumn.AutoFit
ActiveWindow.SmallScroll Down:=57
Range("F60").Select
ActiveWindow.SmallScroll Down:=54
Range("F60:F116").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=-57
Range("I1").Select
ActiveSheet.Paste
Columns("I:I").EntireColumn.AutoFit
End Sub

liulang0808 · 发表于 2023-3-17 07:46

k

c列太长，想把c列分割到D列之后的各个列中，每列26个单元格.zip (29.22 KB, 下载次数: 4) 看看理解的对不对

zzpsx · 发表于 2023-3-17 07:54

liulang0808 发表于 2023-3-17 07:46
k看看理解的对不对

谢谢版主，可能我没有把自己的意图表达清楚，现在已经更新图片，劳烦查看，谢谢高手。

liulang0808 · 发表于 2023-3-17 08:07

楼主的图片看不大懂的
建议楼主在附件中模拟出部分结果，并对应说明

zzpsx · 发表于 2023-3-18 10:53

liulang0808 发表于 2023-3-17 08:07
楼主的图片看不大懂的
建议楼主在附件中模拟出部分结果，并对应说明

c列太长，想把c列分割到D列之后的各个列中，g列开始每列27个单元格.zip (23 KB, 下载次数: 2)

已经重新描述意图，辛苦高手了，谢谢。

liulang0808 · 发表于 2023-3-18 11:42

c列太长，想把c列分割到D列之后的各个列中，g列开始每列27个单元格.zip (33.89 KB, 下载次数: 4)
看看是不是这样的吧

gwjkkkkk · 发表于 2023-3-18 11:43

zzpsx 发表于 2023-3-18 10:53
已经重新描述意图，辛苦高手了，谢谢。

请参考。。。

zzpsx · 发表于 2023-3-18 11:55

问题解决，谢谢版主，谢谢各位高手。

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

如何用代码瓜分c列到d列之后的各个列中？

评分

评分

评分