[已解决]还是VBA来解决这个吧。

跑跑2014 · 发表于 2014-4-12 22:48

本帖最后由跑跑2014 于 2014-4-12 23:39 编辑

三表中Y列如果见到有汇总的就直接左移到D列相对应行，D列其它不变。最好字体颜色比原先D列的重些，还有把汇总改为小计。
希望大侠能懂我的意思，先谢了。

最佳答案

byhdch

2014-4-12 23:14

是否要求效果

12.rar (58.56 KB, 下载次数: 5)

byhdch · 发表于 2014-4-12 23:14

是否要求效果

12.rar (58.56 KB, 下载次数: 5)

跑跑2014 · 发表于 2014-4-12 23:29

本帖最后由跑跑2014 于 2014-4-12 23:36 编辑

byhdch 发表于 2014-4-12 23:14
是否要求效果

非常对，就是字体大小能不能还是九号呢颜色重就可以了。
没事了，我整体重新设置为九号了。

跑跑2014 · 发表于 2014-4-12 23:38

byhdch 发表于 2014-4-12 23:14
是否要求效果

您受累帮我解释下这两句好不——多谢了——
InStr(.Cells(i, "Y"), "汇总") > 0 Then
.Cells(i, "Y").Cut .Cells(i, "D")

byhdch · 发表于 2014-4-12 23:55

InStr(.Cells(i, "Y"), "汇总") > 0 Then 返回"汇总"在字符串中位置排序，若>0，说明存在
.Cells(i, "Y").Cut .Cells(i, "D") 将Cells(i, "Y")移动到Cells(i, "D")

byhdch · 发表于 2014-4-13 00:00

字号为9号

12.rar (57.58 KB, 下载次数: 5)

跑跑2014 · 发表于 2014-4-13 00:08

byhdch 发表于 2014-4-13 00:00
字号为9号

.Borders.LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
最后再告诉我下，这两句话有什么区别，谢谢了。

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