CALENDAR
S M T W T F S
     12
3456789
10111213141516
17181920212223
24252627282930
31      
<< March 2024 >>
SPONSORED LINKS
ARCHIVES
CATEGORIES
RECOMMEND
ザッピング
ヤフーログール
あわせてよみたい
とらっくわーど
MOBILE
qrcode
<< アドセンスのレポート作成方法 | main | ハッシュ化した文字列の作り方 >>
スポンサーサイト

一定期間更新がないため広告を表示しています

| - | | - | - | pookmark |
上下のセルが同じ値だったら結合させるVBA
このままだとA列を結合させる。

デもとはこちらより

============================
Sub セル結合()
Dim r As Integer '行数
Dim i As Integer 'カウンタ
r = Sheets(1).Range("a1").CurrentRegion.Rows.Count - 1

Application.DisplayAlerts = False

For i = 2 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
============================

結合作業に時間がかかりそうなときは使う。
しかしこの機能はデフォルトで用意しておいてほしい。
逆に結合を解除させたいときは

など。


JUGEMテーマ:日記・一般
| VBA | 10:17 | - | - | pookmark |
スポンサーサイト
| - | 10:17 | - | - | pookmark |