小的是為VBA新手，近期在煩惱一件關於合併儲存格資料處理的問題
問題1:我用VBA執行地區(EX1)下列的資料，可以順利跑出合併儲存格的格式
但是資料換到了地區(EX2)就會出現問題，跑出沒有設定物件變數或With區塊變數
然後在桃園迴圈就停了，請問我該怎麼改寫還是有誰可以幫忙協助阿阿阿阿???
問題2:這個VBA只能單用一欄，如果我要處理8欄的資料我該怎麼處理呢?
拜託幫幫小的我，正在焦頭爛額中，謝謝。
地區(EX1) 合併儲存格 地區(EX2)
台北 台北 台北
台北 台北
高雄 高雄
高雄 高雄 高雄
新竹 桃園
新竹 新竹
新竹 新竹 新竹
以下是我使用的VBA
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