返回列表 上一主題 發帖

每隔多少欄插入多少欄程式錯誤需幫忙

本帖最後由 luhpro 於 2012-9-19 21:34 編輯
所以我該從一開始的定義就開始改是嗎?
還是可以把 Columns 用別的參數做取代呢?
謝謝∼
Genie 發表於 2012-9-19 17:08

意思是以 Columns 來表示多個欄位時,
後面要放表示欄位名稱的英文字而不能放數字, (數字是表示多列時在用的)
不過這倒可以用 Chr(64 + 欄位序號) 的方式來轉換.

轉換後的程式可以如下 :

Columns(Chr(64 + BeginCol) & ":" & Chr(64 + BeginCol + InsCol - 1)).Insert Shift:=xlToRight

你程式中上列應是 InsCol 而非 InsRow 喔.

另 tempCol = Range(Cells(myRow, 255), Cells(myRow, 255)).End(xlToLeft).Column
可以簡化為 :  tempCol = Cells(myRow, 255).End(xlToLeft).Column

TOP

本帖最後由 luhpro 於 2012-9-19 22:14 編輯

回復 5# chin15
晤...
這個討論區系統好像沒有類似 "留言" 的功能
所以只能用回文的方式來回應囉.

--- 以下是回應的內容 ---
嗯...
你提供的方式比我的完善多了,
值得記下來.

PS 剛剛發了個報告, 以為是留言功能,
但又發現好像討論串看不到 "報告" 的內容, 所以請管理者忽略該報告.

TOP

        靜思自在 : 為人處世要小心細心,但不要「小心眼」。
返回列表 上一主題