- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2015-9-19 13:16
| 只看該作者
本帖最後由 GBKEE 於 2015-9-20 06:33 編輯
回復 1# lionliu - L = 1
- Do Until Sheets(1).Cells(i, "d") = "" And Sheets(1).Cells(i, "b") <> Empty
- '設定的判斷式為True時" 離開 Do Loop 迴圈
- '變數 i 在迴圈中一直沒變動的,所以進入迴圈後跑不完了.
- Sheets(2).Cells(k, "b").Offset(L - 1) = Sheets(1).Cells(k, "b").Offset(L)
- L = L + 1 '
- Loop
- Option Explicit
- Sub Ex()
- Dim Rng As Range, i As Integer
- With Sheets("PKG").UsedRange.Columns("a:g").Rows '這範圍的Rows(列的物件集合)
- For i = 2 To .Count '由第2列開始
- If Application.CountA(.Rows(i)) = .Columns.Count Then '列中的儲存格都有資料 '
- .Rows(i).Cells(1, 2) = .Rows(i + 1).Cells(1, 2) '
- If Rng Is Nothing Then '範圍指定到變數中
- Set Rng = .Rows(i + 1)
- Else
- Set Rng = Union(Rng, .Rows(i + 1)) 'Union 方法: 傳回兩個或多個範圍的合併範圍。
- End If
- End If
- Next
- If Not Rng Is Nothing Then Rng.Delete '刪除
- End With
- End Sub
|
|
發表於 2015-9-19 11:51
| 
發表於 2015-9-19 15:44
| 