2022-09-15から1日間の記事一覧
Sub 行と列を入れ替えて貼り付け() Selection.Copy Range("D1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True Application.CutCopyMode = False End Sub Sub 反転して出力() Dim r As Range Set r = Selection '選択箇所 Dim arr ar…
Sub 行と列を入れ替えて貼り付け() Selection.Copy Range("D1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True Application.CutCopyMode = False End Sub Sub 反転して出力() Dim r As Range Set r = Selection '選択箇所 Dim arr ar…