返回列表 上一主題 發帖

[發問] 請教這段

aaaaaaaaaaaaaaa

帖子
5 
主題
2 
精華
0 
積分
14 
點名
0  
作業系統
Window XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
來自
火星 
註冊時間
2010-6-22 
最後登錄
2010-7-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-22 10:02 | 顯示全部帖子

[發問] 請教這段

本帖最後由 GBKEE 於 2011-7-22 10:29 編輯

請問各位大大
以下這段程式碼是什麼意思呀?
感謝您


For Each a In Range([A2], [A65536].End(xlUp))  
  Sheets("記錄").[A65536].End(xlUp).Offset(1, 0).Resize(, 12) = a.Resize(, 12).Value
   a.Resize(, 1) = ""
   a.Offset(, 2) = ""   「這是向右清空2格?」
   Next
End Sub
收藏 分享
金毛飛

aaaaaaaaaaaaaaa

帖子
5 
主題
2 
精華
0 
積分
14 
點名
0  
作業系統
Window XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
來自
火星 
註冊時間
2010-6-22 
最後登錄
2010-7-16 
2#
發表於 2010-6-22 11:17 | 顯示全部帖子
本帖最後由 GBKEE 於 2011-7-22 10:30 編輯

請問各位大大
我上一個問題主要是要問以下程式碼的意思
也感謝H跟G大的指正
由於找不到回覆功能
所以只好再發問一次
不是故意賺積分
以下這段程式碼是什麼意思呀?
感謝您


For Each a In Range([A2], [A65536].End(xlUp))   
Sheets("記錄").[A65536].End(xlUp).Offset(1, 0).Resize(, 12) = a.Resize(, 12).Value
   a.Resize(, 1) = ""
金毛飛

TOP

aaaaaaaaaaaaaaa

帖子
5 
主題
2 
精華
0 
積分
14 
點名
0  
作業系統
Window XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
來自
火星 
註冊時間
2010-6-22 
最後登錄
2010-7-16 
3#
發表於 2010-6-22 14:47 | 顯示全部帖子
回復 5# Hsieh

H大
感謝您
金毛飛

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題