作者icene (kkk)
看板Visual_Basic
标题Re: [VBA ] 请教 VBA的写法 谢谢
时间Fri Jul 6 21:10:13 2007
Sub PC()
:
: For i = 1 to 60000
: If Range("C1").Offset(i,0)=Empty then exit for
If Range("A1").Offset(i,0) = Empty Then
: Range("A1").Offset(i,0).Resize(1,100).Value = _
Range("B1").Offset(i,0).Resize(1,100).Value
: End If
: Next i
End
※ 引述《Insistent (无法...)》之铭言：
: 公司的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: 61.217.219.64
1F：推 Insistent:感恩 谢谢 太感谢了 :( 07/08 05:32