有關轉貼文章"For...Next 與 For Each...Next 迴圈的基本概念"的問題
- 帖子
- 222
- 主題
- 56
- 精華
- 0
- 積分
- 285
- 點名
- 0
- 作業系統
- window
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2010-8-30
- 最後登錄
- 2024-4-22
 
|
有關轉貼文章"For...Next 與 For Each...Next 迴圈的基本概念"的問題
在"For...Next 與 For Each...Next 迴圈的基本概念"一文中程式碼
Sub zz()
Set a = Workbooks("檔案A.xls").Sheets(1)
Set b = Workbooks("檔案B.xls").Sheets(1)
lastrow = a.[A1].End(xlDown).Row
lastcol = a.[A1].End(xlToRight).Column
##問題 變數a.b為何使用set設定為物件變數,而lastcol和lastrow卻不使用物件變數set
後面的應用上lastcol和lastrow視為哪種變數?
rb = 1
For c = 2 To lastcol
For r = 2 To lastrow
If a.Cells(r, c) <> "" Then
b.Cells(rb, 3) = a.Cells(1, c)
b.Cells(rb, 4) = a.Cells(r, 1)
b.Cells(rb, 11) = a.Cells(r, c)
rb = rb + 1
End If
Next r
Next c
End Sub |
|
|
|
|
|
|
|
- 帖子
- 222
- 主題
- 56
- 精華
- 0
- 積分
- 285
- 點名
- 0
- 作業系統
- window
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2010-8-30
- 最後登錄
- 2024-4-22
|
|
|
|
|
|
|
|
發表於 2010-9-5 19:21
| 
