→ sharptwo:我隻懂一點vb﹐不過null是不能用=的吧 07/06 05:13
推 ClubT:試試Is Null 07/06 08:31
公司的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)