- 帖子
- 31
- 主題
- 7
- 精華
- 0
- 積分
- 101
- 點名
- 0
- 作業系統
- windowxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 高雄縣鳳山
- 註冊時間
- 2011-2-16
- 最後登錄
- 2017-8-8
|
謝謝各位大大回覆,Sub 抓資料(k) 是一種副程式用法,所以這程式只在以下這句語法問題
sheets("sheet1").range (Cells(j+1,k),(cells(j+1,k+2)=sheets("data").range (Cells(j+1,2),(cells(j+1,4)).......電腦顯示這句是錯的
經使用hsieh板主方式,程式執行不會錯誤但資料確無移過去sheet1 ,不知差在哪我改成
sheets("sheet1").range (sheets("sheet1").Cells(j+1,k),sheets("sheet1").(cells(j+1,k+2))=sheets("data").range (sheets("data").Cells(j+1,2),sheets("data").(cells(j+1,4))
結果是資料欄空白
gbkee板主使用resize方式因我照著打顯示語法錯誤,我對resize用法不懂,所以不知怎問起不過還是謝謝各位幫忙
^^ |
|
發表於 2011-2-22 14:57
| 
