プロが教える店舗&オフィスのセキュリティ対策術

エクセル初心者です。
すみませんが教えてください。
宜しくお願いします。

名前 サイズ
A 1
A 2
A 3
B 1
B 2
C 1
C 2
D S
D M
D L

名前という部分をセルを結合して中央揃えを押して下のようにやっているのですが
量が多い時にやると凄く時間がかかり改善したいです。
下のように自動的にする方法はありますか?
やはり全てやって行くしかないですか?

名前 サイズ
1
A 2
3
1
B 2
1
C 2
S
D M
L

すみませんが宜しくお願いします。

A 回答 (2件)

初心者とおっしゃってるのにvbaですが


使わずに実現は難しいので

Sub OSIETE0224()
'
'
Dim Src As Long
Dim Dest As Long
Dim n As Long
Dim i As Long

Src = 1
Dest = 1
With Worksheets("Sheet2")
Do While Cells(Src, 1) <> ""
n = Cells(Src, 255).End(xlToLeft).Column - 1
.Cells(Dest, 1).Formula = Cells(Src, 1)
With .Cells(Dest, 1).Resize(n, 1)
.VerticalAlignment = xlCenter
.MergeCells = True
End With
For i = 0 To n - 1
.Cells(Dest + i, 2).Formula = Cells(Src, i + 2)
Next
Src = Src + 1
Dest = Dest + n
Loop
End With
End Sub

以上を標準モジュールにセットして
Sheet1には

A 1 2 3
B 1 2
C 1 2
D S M L
の形式で入力するとSheeT2に変換されます。

vbaの詳細は
http://excel-ubara.com/excelvba1/
を参照願います。
    • good
    • 0

状況が全く解りません。


「A1セルに○○と入力」とか、「B列に△△を入力」「A1セルとB1セルを結合する」などと具体的に説明してください。

結合して中央揃えの動作を繰り返すのでしたら、いちいちマウスでカーソルを上下させるより、直前の動作を繰り返すショートカットキーを使いましょう。
結合したいセルを選択して、「セルを結合して中央揃え」を一度押したら、次に結合するセルを選択して、キーボードのF4を押すか、Ctrl+Yを押します。
その後は他の動作を挟まない限り、F4かCtrl+Yを押すたびに「セルを結合して中央揃え」を繰り返すことができます。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!