公司的WIP 系统跑出来的报表 只能转存.csv 不能转存.xls 且 转档之後 格式会跑掉 所以无法直接录巨集就可以完成格式变更 正常的报表格式是这样 A B C D E F G 1 X X X 空白 X X 2 X X X 空白 X X 3 X X X 空白 X X 4 X X X 空白 X X 5 X X X 空白 X X 6 X X X 空白 X X 可是公司转档之後 在某不特定列开始 固定从B 往右SHIT 一格 如下 A B C D E F G 1 X X X 空白 X X 2 X X X 空白 X X 3 X X X 空白 X X 4 X X X 空白 X X 5 X X X 空白 X X 6 X X X 空白 X X 我的想法是 写判断式搜寻A栏中 如有空白 就剪下当列 B到G栏 贴到当列 A到F栏 可是我不太熟VB的语法 弄好久都写不出来 我本来是这样写的 Sub PC() Dim columns As Variant For Each cell In Range.columns("E:E") If cell.Value = Null Then Range.columns("F:L").Cut Range.columns("E:K").Paste End If End 不太懂怎麽写 这是我参考 内建说明 所写的 我知道写得很烂 所以想请各位帮我看看 我是不是哪边写错了(应该错得很离谱T_T) >< 谢谢各位了 -- 其实我非常爱你 不想失去你 难道我没有权利说我不愿意 可不可以任性 求求你不要去 藏在我心里最後一句 其实还爱你 其实还爱你 ~ 阿沁 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 210.192.161.188 ※ 编辑: Insistent 来自: 210.192.161.188 (07/04 23:00)