指定範囲で1列おきに2列選択

2013/01/28 05:36

このQ&Aのポイント

マクロで記録した選択を実行することはできません。
関数式が入っている列を除いて他の範囲でも同じ操作を行いたいです。
範囲内のセルの値を取得するために「形式として貼り付け」-「値」としたいです。

Rord
お礼率67% (25/37)

Visual Basic
回答数2
ありがとう数1

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

hallo-2007
ベストアンサー率41% (888/2115)

2013/01/28 13:14 回答No.2

１列おきに２列に「形式として貼り付け」ー「値」としたいのですがマクロの記録にばかり頼っていると、どうしてもコピーと貼り付けをイメージしてしまいますが簡単な式で、値をほかのセルへ入れることが出来ます。例えば Sheets("コピー先").Range("J9:K40").Value=Sheets("メイン").Range("J9:K40").Value とかでできます。今回の質問の場合、列（ＪとかＫ）を順に変えたいので　Ｃｅｌｌｓプロパティを使って Sheets("コピー先").Range(Sheets("コピー先").Cells(9, 10), Sheets("コピー先").Cells(40, 11)).Value =・・・と記述することになります。 Sub Macro1() Dim j As Integer Dim k As Integer j = 10 k = 10 For i = 1 To 3 Sheets("コピー先").Range(Sheets("コピー先").Cells(9, k), Sheets("コピー先").Cells(40, k + 1)).Value = _ Sheets("コピー元").Range(Sheets("コピー元").Cells(9, ｊ), Sheets("コピー元").Cells(40, ｊ + 1)).Value j = j + 3 k = k + 2 Next End Sub j = 10 k = 10 For i = 1 To 3 ・・・はそちらの都合に合わせて変更してください。 http://excelvba.pc-users.net/index.html などのサイトを参考にして勉強してみてください。

質問者