如何讓相同內容的表格合併 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何讓相同內容的表格合併

返回列表下一主題上一主題發帖

如何讓相同內容的表格合併

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

1^# 跳轉到 »

發表於 2011-1-1 22:33 | 顯示全部帖子

本帖最後由 FAlonso 於 2011-1-1 22:38 編輯

Sub abc()
Dim myrange As Range, mycell As Range, mytarget As Range
Application.DisplayAlerts = False
Set myrange = Range("A1:A" & Range("A1").End(xlDown).Row)
For Each mycell In myrange
If mycell = mycell.Offset(, 1) Then
Set mytarget = Union(mycell, mycell.Offset(, 1))
With mytarget
.Merge
.HorizontalAlignment = xlCenter
End With
End If
Next
Application.DisplayAlerts = True
End Sub

複製代碼

大概是這樣,a和b有數字,檢查後merge,試試

80 字節以內
不支持自定義 Discuz! 代碼

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

2^#

發表於 2011-1-2 15:22 | 顯示全部帖子

已經試過了，

但是我要的結果不是這樣，

要直的、不一定只是2格合併

我再試試看能否修改成自己 ...
deyan 發表於 2011-1-2 02:34

或者上傳檔案來,讓大家參考參考

80 字節以內
不支持自定義 Discuz! 代碼

靜思自在 : 靜坐常恩己過、閒談莫論人非。

返回列表下一主題上一主題