物件省略的加"."與不加問題 - Excel程式區

[發問] 物件省略的加"."與不加問題

帖子: 23
主題: 4
精華: 0
積分: 39
點名: 0
作業系統: Win7
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2011-10-27
最後登錄: 2021-5-13

11^# 跳轉到 »

發表於 2011-12-20 10:42 | 只看該作者

本帖最後由 thps51134 於 2011-12-20 10:47 編輯

回復 10# GBKEE

　想請教您code中兩列的意義
1. 第一列 "Option Explicit"

2. 第11列 "NewSh.Cells(Rows.Count, "A").End(xlUp).Offset(1)"
　　迴圈執行到這裡時，似乎最後一列的資訊無法更新？ (也怕我改寫錯了)
　　每次於新檔案貼上都是貼在同一列Q_Q

'自己改寫的迴圈內; 第九列執行有問題'
For i = 22 To RowEnd 'RowEnd為整個Sheet(1)中的最後一列'
If Cells(i, 3).Value = "BU5" Then
If NewSh.Cells(2, 1) = "" Then '因為Cells(1,1)都為空, 所以換了別格
Range(Cells(i, 1), Cells(i + 1, 2)).EntireRow.Copy NewSh.Rows(1)
'新檔案最後一列後
'因為前面沒看到newbo所以換成NewSh...不知道有沒有誤會'
Else
Range(Cells(i, 1), Cells(i + 1, 3)).EntireRow.Copy NewSh.Cells(Rows.count, "A").End(xlUp).Offset(1) '新檔案最後一列
End If
End If
Next i