- 帖子
- 227
- 主題
- 3
- 精華
- 1
- 積分
- 273
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-3-22
- 最後登錄
- 2013-1-29
|
c欄不能納入循環中操作- Sub test()
- Dim c%, n%, i%, r%
- Application.DisplayAlerts = False
- n = [a65536].End(xlUp).Row
- For c = 1 To 2
- r = 2
- For i = 2 To n
- If Cells(i, c) <> Cells(i + 1, c) Then
- If r < i Then Range(Cells(r, c), Cells(i, c)).Merge
- r = i + 1
- End If
- Next
- Next
- For r = 2 To n
- If Cells(r, 2).MergeCells Then
- a = Cells(r, 2).MergeArea.Address
- s = Split(a, "$")
- For k = Val(s(2)) To Val(s(4))
- Do While Cells(k, 3).Offset(j, 0) = Cells(k, 3) And k + j <= Val(s(4))
- j = j + 1
- Loop
- If j > 1 Then
- Cells(k, 3).Resize(j).Merge
- k = k + j - 1
- j = 1
- End If
- Next
- r = k - 1
- End If
- Next
- End Sub
|
|
發表於 2012-9-7 22:47
| 
