jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-3-8 11:57 | 只看該作者

[發問] 儲存格合併

網頁資料下載至Excel,部份欄位原為合併的卻變為無合併,是否可使用程式再將儲存格做合併動作

儲存格合併.zip (2.6 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2013-3-8 15:19 | 只看該作者

回復 1# jcchiang

Sub ex()
Application.DisplayAlerts = False
Range("A1:G19").UnMerge
For i = 1 To Range("A1:G19").Columns.Count
If Application.CountBlank(Range("A1:G19").Columns(i)) > 0 Then
Set Rng = Range("A1:G19").Columns(i).SpecialCells(xlCellTypeBlanks)
Union(Rng, Rng.Offset(-1, 0)).Merge
End If
Next
Application.DisplayAlerts = True
End Sub

複製代碼

學海無涯_不恥下問

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

3^#

發表於 2013-3-8 15:46 | 只看該作者

回復 2# Hsieh
如果有連續2個要合併的,第二個會被會被第一個一併合併

Test4被Test3合併了

儲存格合併1.jpg (207.86 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-3-8 19:07 | 只看該作者

回復 3# jcchiang

Sub ex()
Dim Rng As Range
With Range("A1:G19")
.UnMerge
For i = 1 To .Columns.Count
If Application.CountBlank(.Columns(i)) > 0 Then
Set Rng = .Columns(i).SpecialCells(xlCellTypeBlanks)
For Each a In Rng.Areas
Union(a, a.Offset(-1, 0)).Merge
Next
End If
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

5^#

發表於 2013-3-11 10:24 | 只看該作者

回復 4# Hsieh

程式指令真的很厲害,只是多加一個判斷,即可將問題解決,感謝H大的指導
另有一個問題是,資料的行列不一定為19行
如果將Range("A1:G19"),改為Range("A:G"),會導致最後一筆將後面所有的空白儲存格都合併
是否有何指令可以先判斷出有多少行,再將數字帶入Range("A1:G?)內呢

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2013-3-11 10:31 | 只看該作者

回復 5# jcchiang

Sub ex()
Dim Rng As Range
With Range("A1").CurrentRegion
.UnMerge
For i = 1 To .Columns.Count
If Application.CountBlank(.Columns(i)) > 0 Then
Set Rng = .Columns(i).SpecialCells(xlCellTypeBlanks)
For Each a In Rng.Areas
Union(a, a.Offset(-1, 0)).Merge
Next
End If
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

7^#

發表於 2013-3-11 11:06 | 只看該作者

回復 6# Hsieh

原本用CurrentRegion則可傳回由空白格子圍起來的一個範圍
目前問題已解決,再次感謝H大的指導

TOP