セルの書式設定(選択範囲内で中央コマンド)

質問

質問させてください。
セルの書式設定で横に並んでいる2つのセルを、「選択範囲内で中央コマンド」
で中央に配置して表示させているものがあったとします。

＜やりたいこと＞
・「選択範囲内で中央コマンド」で配置されている２つのセルを検索
・それらのセルをマクロなり関数で選択を解除して、片方のセルの内容
をもう片方のセルにコピーしたい。

どのようにしたらいいか教えてください。

回答No.2

char_cat · ベストアンサー

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

char_cat

マクロでこんな感じでしょうか？

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

補足

ご回答ありがとうございます。
説明不足ですいません。
結合された２つのセルを検索して分割、コピーはできました。
私がやりたかったのは、セルの結合はされていなく、セルの
書式設定で文字配置の横配置で「選択範囲内で中央コマンド」
されているものを選んで隣セルにコピーするといった内容です。