[VBA ] 請教 VBA的寫法謝謝

看板Visual_Basic作者Insistent (無法...)時間18年前 (2007/07/04 22:52)推噓1(1推 0噓 1→)

留言2則, 2人參與討論串1/2 (看更多)

公司的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)

→

sharptwo

07/06 05:13, , 1^F

07/06 05:13, 1^F

推

ClubT

07/06 08:31, , 2^F

07/06 08:31, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 Insistent 的文章

文章代碼(AID): #16YxG_w9 (Visual_Basic)