エクセルでCtrlを押しながら複数の離れたセルを選択しています。
それを指定したセルに縦1列に並べる方法はありますか?(Sheet2のA1から下方向へ並べる)
順番が入れ替わっても問題ありません。
普通に行うと複数の選択範囲に対して実行できません。という警告が出ます。
他の方のよく似た質問の回答でVBAが見つかりましたが、その回答では選択したセルの位置関係をキープしたままの状態で貼り付けされるので、縦1列に並べるように改良して欲しいです?
宜しくお願いします。
Sub sample()
On Error Resume Next
Set base = Application.InputBox("コピー先セルを入力してください。", Type:=8)
If base Is Nothing Then Exit Sub
For Each a In Selection
If b = "" Then b = a.Row: c = a.Column
base.Offset(a.Row - b, a.Column - c) = a.Value
Next
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは。
>複数の選択範囲に対して実行できません。という警告が出ます。
「順番が入れ替わっても問題ありません。」ということならお話はとても簡単で、1つずつコピー貼り付けていくだけです。
sub macro1()
dim i as long
dim h as range
i = 1
worksheets("Sheet2").range("A:A").clear
for each h in selection
h.copy worksheets("Sheet2").cells(i, "A")
i = i + 1
next
end sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) エクセル VBAで複数セル選択時エラーになる問題 3 2022/10/04 02:40
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) VBAで重複した値のセルに色付けをしたい 1 2022/11/02 16:12
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの複数のセルを一括で...
-
エクセルでセルを10個分くらい...
-
エクセル空白以外の文字を抽出
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
A1セルに入力したら、入力時間...
-
Excelの入力規則で2列表示したい
-
Excelで同じセルに箇条書きをし...
-
ある倍数だけを塗りつぶす方法 ...
-
複数の文字列のいずれかが含ま...
-
IF関数で0より大きい数値が入力...
-
セルを結合したA4とA5の条件付...
-
エクセルで既に入力してある文...
-
エクセルで1列に500行並んだデ...
-
excelでSUBTOTAL関数を設定した...
-
Excelで年月日データから下二桁...
-
Excelでセルに入力されたカラー...
-
エクセル:一覧表に存在する文...
-
Excelで2行単位のソートの出来...
-
参照先セルに値が入っていない...
-
セルA1とB1の数値が一致しな...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの複数のセルを一括で...
-
エクセルでセルを10個分くらい...
-
エクセル空白以外の文字を抽出
-
エクセルVBAでフィルタ抽出...
-
ワードの表のセル 網掛けのコピー
-
WEB上の文章 ⇒ EXCEL...
-
波線は無理??
-
マクロ 複数セルコピー後、1つ...
-
Excel セルの値を数値と認識しない
-
VBA 飛び飛びのセルを選択...
-
Excel 2003 セルの中に特定の...
-
指定した範囲から、文字A、文字...
-
複数の離れた選択範囲をコピー...
-
エクセル2007で総当り表を作り...
-
セルの書式設定(選択範囲内で中...
-
ExcelのVBA セル内の文字書き換...
-
EXCEL VBA 複数セルのコピー
-
<Excel> Ctrl での複数セルの選...
-
VBA コピーモード中の左上隅セ...
-
文字だけ削除する関数ありますか?
おすすめ情報