|
おはようございます。
>3つの各セルの文字を1度にselectして、1つのactivecellにまとめて入れるにはどうしたら用意のでしょう。
例えば、
A
1
2 aa
3 bb
4 cc
というように文字が入っていた場合、
セルA1からA4を選択した状態(選択セル範囲はA1からA4ですが、
アクティブなセルはA1)で 下記のコード(main)を実行すると、
セルA1には、
aabbcc というようにA2 A3 A4の文字列が連結された内容が設定されます。
標準モジュールに
'============================================================
Sub main()
Dim crng As Range
If TypeName(Selection) = "Range" Then
ActiveCell.Clear
For Each crng In Selection
If ActiveCell.Address <> crng.Address Then
ActiveCell.Value = ActiveCell.Value & crng.Value
End If
Next
End If
End Sub
|
|