- 帖子
- 77
- 主題
- 30
- 精華
- 0
- 積分
- 110
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2013-7-14
- 最後登錄
- 2018-10-3
|
《請教》vba 合併儲存格
請教各位大師們有關vba的合併儲存格，如相同資料則合併，如下方，我執行不對，請大家指點一下
地區
新竹
新竹
桃園
桃園
桃園
桃園
台北
台北
台北
台北
Sub bb()
Dim xRng, xRng1 As Range
Application.DisplayAlerts = False
k = Range("a65536").End(xlUp).Row
For j =2 to k
Set xRng = Cells(j, 1)
Set xRng1 = Cells(j - 1, 1)
If xRng1 = xRng Then
Range(xRng, xRng1).Merge
End If
Next
End Sub |
|
發表於 2013-12-16 16:58
| 
