ネットで色々調べながら、A列方向の同じ値のセルを結合させるマクロ
を作ってみたのですが、もっと簡単にできるようでしたら教えていただきたいです。
どうぞよろしくお願いいたします。
Sub セル結合()
Dim r As Integer '行数
Dim i As Integer 'カウンタ
r = Sheets(1).Range("a1").CurrentRegion.Rows.Count - 1
Application.DisplayAlerts = False
For i = 1 To r
Cells(i, 1).Activate '項目の一つ下のセルをアクティブに
If ActiveCell.Value = ActiveCell.Offset(1).Value Then
Range(ActiveCell, ActiveCell.Offset(1)).Merge
End If
Next
Application.DisplayAlerts = True
End Sub
No.1ベストアンサー
- 回答日時:
こんな感じでどうでしょうか。
Dim c As Range
Application.DisplayAlerts = False
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
If c.MergeArea(1).value = c.Offset(1).value Then
Range(c.MergeArea, c.Offset(1)).Merge
End If
Next
Application.DisplayAlerts = True
お返事が遅くなり申し訳りません。
xls88さんのおかげで、いままで手動だった処理が
簡単になりました。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/11 08:33
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでの SendKeysの変数指定方法
-
vbaで指定したセルより下の行を...
-
マクロのデータ削除
-
ExcelVBA コンボボックスに入力...
-
ダブルクリックでセルに色をつ...
-
【EXCEL-VBA】特定の値の入った...
-
Excel VBA で色付きのセルの値...
-
Excel VBA:フォーム←→セルのア...
-
セルをクリックしたら色を変え...
-
エクセルマクロで「セルのサイ...
-
Excelマクロ セルを行頭に移動
-
(エクセルVBA)セルを左クリッ...
-
EXCEL(VBA) セルをクリックし...
-
IF関数で違う値もTRUEになる
-
【VBA】アクティブセルだけ背景...
-
excel マクロでの特殊文字入力方法
-
VBA Rangeの足し算
-
エクセルでセルをクリックする...
-
B列の最終行までA列をオート...
-
エクセル マクロ オートフィ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
VBAでの SendKeysの変数指定方法
-
エクセルでセルをクリックする...
-
Excelマクロ セルを行頭に移動
-
Excel VBA:フォーム←→セルのア...
-
マクロのデータ削除
-
【VBA】アクティブセルだけ背景...
-
IF関数で違う値もTRUEになる
-
ファイルサーバー上のexcelファ...
-
エクセルマクロで「セルのサイ...
-
ダブルクリックでセルに色をつ...
-
(エクセルVBA)セルを左クリッ...
-
Excel VBA で色付きのセルの値...
-
VBA Rangeの足し算
-
セルをクリックしたら色を変え...
-
【EXCEL-VBA】特定の値の入った...
-
excel マクロでの特殊文字入力方法
-
【マクロ】1つのセルから結合...
-
Excelで数値の変化をカウントし...
-
ExcelVBA コンボボックスに入力...
おすすめ情報