Sub 指定した列数だけ横方向にコピーして直下に貼り付けるよ()
Application.ScreenUpdating = False
Dim Col As Long
Col = 5 '選択したい列数
Dim myRng As Range
For Each myRng In Selection
Dim yoko As Variant
yoko = myRng.Resize(, Col).Value
Dim i As Long
For i = 1 To UBound(yoko, 2) ' 列方向にループ
myRng.Offset(1, i - 1).Value = yoko(1, i)
Next i
Next myRng
Application.ScreenUpdating = True
End Sub
・・・・・・・・・・・・・・・・・
詳しい説明はnoteにあります。よかったらみてください
note.com/makotoym/n/n6ef9380f5338?sub_rt=share_pb
・・・・・・・・・・・・・・・・・
利用しているExcel：
Microsoft® Excel® for Microsoft 365 MSO
(バージョン 2311 ビルド 16.0.17029.20028) 64 ビット
動画編集アプリ：
Microsoft　Clipchamp
Excelアイコンは、Icons8が作成したものです。
→ icons8.com/icon/117561/microsoft-excel-2019
注意事項：
このやり方は、動画公開時点での情報です。
今後のExcel機能追加や変更などで、やり方が異なる場合や
関数の仕組みが変更される場合があります。
ご自分の環境にあったやり方で調整してください。
補足：
なるべくUA-camに公開されていない動画を作ります。
こんなこと教えてほしい等、ご要望がありましたら
お気軽のコメントください。参考にします。
本動画で紹介している内容については、情報の提供のみを目的としています。
動画の内容を実行・運用した結果について、当チャンネルは一切の責任を負いかねます。
視聴者様の自己責任のもとでご活用ください。
＜作者の紹介＞
社会人になってから20年以上Excelを使って仕事をしてきた
日本人の普通のビジネスパーソンです。
VBAは書籍や各種セミナーなどに参加したりして、
あとは独学で身に着けてきました。
最近はいかにAIを利用してスキルアップできるか、
楽しく取り組んでいます。
UA-camでは、わたしが実務で作ったマクロや、
学習のために作成したものを紹介していきます。
職場でも視聴できるように
音声やBGMを無くした動画にしています。
Excelのほかにも、Power Automate Desktop、PowerShell、
Officeスクリプト、Vim、Pythonなどの動画も作成する予定です。