推 Insistent:感恩 謝謝 太感謝了 :( 07/08 05:32
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