小的是为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-------------------------->在这边跑出错误 Set xRng(2) = Nothing End If Loop End Sub --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 115.43.116.99 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1506445396.A.B62.html