[VBA ] 請益合併儲存格迴圈問題

看板Visual_Basic作者blacktea12 (macau)時間7年前 (2017/09/27 01:03)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串1/1

小的是為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://www.ptt.cc/bbs/Visual_Basic/M.1506445396.A.B62.html