- 帖子
- 560
- 主題
- 159
- 精華
- 0
- 積分
- 723
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2023-10-31
  
|
dear all 大大
1.執行後儲存格A2-A15友執行相同內容合併.然後停於 xRng(2).Merge 秀出 沒有設定物件變數或with塊變數
2.why?? 煩不吝賜教. thanks
Sub bb()
Dim xRng(1 To 2) As Range, J As Integer
Application.DisplayAlerts = False
Set xRng(1) = Range("A2")
J = 1
Do While xRng(1) <> ""
If xRng(1).Offset(J) = xRng(1) Then
Set xRng(2) = Union(IIf(xRng(2) Is Nothing, xRng(1), xRng(2)), xRng(1).Offset(J))
J = J + 1
Else
Set xRng(1) = xRng(1).Offset(J)
J = 1
xRng(2).Merge
Set xRng(2) = Nothing
End If
Loop
End Sub |
|
發表於 2018-5-30 16:48
| 
