« [Windows10] コマンドプロンプトによるファイルやディレクトリのコピー方法 | トップページ | [Windows10]パソコンのイヤホンが聞こえないトラブル »

[Excel] マクロで、行/列を入れ替えて貼り付ける

■同一シート内:
 Range("A1:A5").Copy
 Range("B1").PasteSpecial Transpose:=True

■別一シートへ:
 Sheets("Sheet1").Range("A1:A5").Copy
 Sheets("Sheet2").Range("B1").PasteSpecial Transpose:=True

■#Refエラー発生:値のみを貼り付ける
 Sheets("Sheet1").Range("A1:A5").Copy
 Sheets("Sheet2").Range("B1").PasteSpecial Paste:=xlPasteValues, Transpose:=True

■変数で指定されるセルに貼り付ける
  Range("A1:A5").Copy
  Sheets("Sheet2").Cells(1 + i , 1).Select
  Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True

| |

« [Windows10] コマンドプロンプトによるファイルやディレクトリのコピー方法 | トップページ | [Windows10]パソコンのイヤホンが聞こえないトラブル »

コメント

コメントを書く



(ウェブ上には掲載しません)




« [Windows10] コマンドプロンプトによるファイルやディレクトリのコピー方法 | トップページ | [Windows10]パソコンのイヤホンが聞こえないトラブル »