No.2ベストアンサー
- 回答日時:
Sub 選択範囲内で中央分割コピー()
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
右 = ActiveCell.Column
下 = ActiveCell.Row
Range("A1").Select
For I = 1 To 下
For J = 1 To 右
Cells(I, J).Select
If Selection.HorizontalAlignment = xlCenterAcrossSelection Then
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
End With
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, -1).Range("A1").Select
End If
Next J
Next I
End Sub
こんな感じ?
選択範囲内で中央っていうコマンド初めて知りました(^^;)
No.1
- 回答日時:
マクロでこんな感じでしょうか?
Sub 結合セルの分割コピー()
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
右 = ActiveCell.Column
下 = ActiveCell.Row
Range("A1").Select
For I = 1 To 下
For J = 1 To 右
Cells(I, J).Select
If Selection.MergeCells Then
Application.CutCopyMode = False
With Selection
.MergeCells = False
End With
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, -1).Range("A1").Select
End If
Next J
Next I
End Sub
この回答への補足
ご回答ありがとうございます。
説明不足ですいません。
結合された2つのセルを検索して分割、コピーはできました。
私がやりたかったのは、セルの結合はされていなく、セルの
書式設定で文字配置の横配置で「選択範囲内で中央コマンド」
されているものを選んで隣セルにコピーするといった内容です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 数式を使用した条件付き書式が、一つのセルにしか反映されない 3 2022/06/08 23:20
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) office16 のクイックアクセスツールバーの設定 3 2023/01/10 14:02
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Visual Basic(VBA) シート間で同じ値があったら指定範囲をコピーして貼り付け 1 2022/11/07 08:01
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/10/25 09:26
- Excel(エクセル) マクロ セルの選択 5 2022/08/12 22:47
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでセルを10個分くらい...
-
エクセルの複数のセルを一括で...
-
Excelで指定した範囲の数値の減算
-
Excelで、セル内容が文字入力さ...
-
エクセル2007で総当り表を作り...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
Excelで同じセルに箇条書きをし...
-
お肉の下のシートを煮込んでし...
-
複数の文字列のいずれかが含ま...
-
A1セルに入力したら、入力時間...
-
Excelの入力規則で2列表示したい
-
参照先セルに値が入っていない...
-
空白でないセルの値を返す方法...
-
Excelで年月日データから下二桁...
-
エクセルで時間の判定をしてい...
-
エクセルマクロでセルの文字サ...
-
色のリンクは出来ますか?【エク...
-
ワードの表の中に文字を入れる...
-
excel:条件付き書式の適用範囲...
-
セルを結合した場合の関数(COU...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの複数のセルを一括で...
-
エクセルでセルを10個分くらい...
-
エクセル空白以外の文字を抽出
-
エクセルVBAでフィルタ抽出...
-
ワードの表のセル 網掛けのコピー
-
WEB上の文章 ⇒ EXCEL...
-
エクセル もしくは、ワードでき...
-
ExcelのVBA セル内の文字書き換...
-
エクセルがわからない><;
-
excel ハイパーリンクをまとめ...
-
セルの書式設定(選択範囲内で中...
-
EXCEL2003について2点お伺いします
-
波線は無理??
-
excelなどで、
-
エクセル表の縦列へ計算式
-
マクロ 複数セルコピー後、1つ...
-
excel セルに打ち込み 違うセル...
-
セルの中の数字を切り取る、ま...
-
VBA コピーモード中の左上隅セ...
-
Excelで「"」ダブルクォテーシ...
おすすめ情報