thps51134

回復 10# GBKEE

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

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

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

複製代碼

謝謝!

GBKEE

回復 11# thps51134
Option Explicit 陳述式  在模組層次中強迫每個在模組裏的變數都必須明確的宣告。
如圖

下載 (71.61 KB)

2011-12-20 14:40

迴圈執行到這裡時，似乎最後一列的資訊無法更新？ (也怕我改寫錯了)
程式碼是沒問題的要看看檔案內容