小的是为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