エクセル2010 結合の仕方

質問

A1とB1を結合
A2とB2を結合
A3とB3を結合
　　　・
　　　・
　　　・
A1000とB1000を結合

これをまとめて結合する良い方法はありますか？

回答No.2

bin-chan · ベストアンサー

１）A1とB1を結合
２）A1とB1を選択した状態でコピー
３）A2からB1000を選択（A2選択して、Ctrl＋Shift＋↓、Shift＋→）
４）形式を選択して貼り付け-書式　でＯＫ

お礼

回答ありがとうございます。できました！

回答No.4

keithin

Ａ１：Ｂ１０００を選ぶ
ホームタブ中央付近の「セルを結合して中央揃え▼」から「横方向に結合」を行う。

お礼

回答ありがとうございます。こんな目立つところに答えがあったんですね＞＜質問する前にもう少しいじっておくべきでした。

回答No.3

noname#203218

VBAで色々方法はありますが一例として

数式を入力する方法C1に＝A1＆B1、C２に＝A２＆B２・・・・
Sub test()

Range("C1:C1000").Formula = "=a1&b1"

End Sub

C列に結合の値のみ表示する方法
Sub test2()
Dim c As Range

For Each c In Range("c1:c1000")
c.Value = c.Offset(, -2) & c.Offset(, -1)
Next
End Sub

お礼

回答ありがとうございます。すみません、マクロを使わずにと一文いれておくべきでした＞＜
testとtest2をやってみましたがうまくできませんでした。マクロは超初心者です＞＜

回答No.1

tom04

こんばんは！
＞これをまとめて結合する・・・

1000行目までオートフィルでコピーするのも大変でしょうから
VBAになってしまいますが、一例です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub 結合() 'この行から
Dim i As Long
Application.DisplayAlerts = False '←念のため
For i = 1 To 1000
Cells(i, 1).Resize(1, 2).Merge
Next i
Application.DisplayAlerts = True
End Sub 'この行まで

こんな感じではどうでしょうか？m(_ _)m

お礼

回答ありがとうございます。ごめんなさい、今回はマクロではないんです＞＜
でもコードの内容は理解できましたので、私の備忘録に残しておきます。マクロの画面を立ち上げるショートカットキーも知らなかったので勉強になります。