Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4903 / 76732

←次へ　｜　前へ→


	【77444】Re:多量の複数セルをコピーし入れ替えして貼り付け

ウッシ - 15/10/7(水) 15:12 -


	引用なし

	パスワード

こんにちは

Sub test1()
　　Intersect(Range("A:OH"), _
　　　　Union(Range("A1:A4,A11,A13:A14,A18,A25,A31,A33,A35,A61"), _
　　　　　　Range("A64:A65,A67,A71:A72,A84,A88,A90,A104,A107:A108,A110"), _
　　　　　　Range("A114,A132:A133,A151,A157,A160,A167,A175,A184,A205,A211")).EntireRow).Copy

　　ThisWorkbook.Sheets("OTHER").Range("A2").PasteSpecial Paste:=xlPasteValues, Transpose:=True

End Sub

とか、色々出来ますよ。

▼YUKI さん：
>再度行き詰ってしまったのでお願いします。
>
>別ブックから該当の複数セルを選択し、行列を入れ替えて値貼付を行いたいです。
>コピーの対象はA～OH列の複数行です。
>
>少量の時はうまく行っていたのですが、選択数が増えたら
>'Range'メソッドは失敗しました：'_global'オブジェクト
>とのエラーが起きてしまいました。
>出来れば行修正の間違いの少ない記述が知りたいのですが
>お教え願えませんでしょうか
>
>
>Range("A1:OH4,A11:OH11,A13:OH14,A18:OH18,A25:OH25,A31:OH31,A33:OH33,A35:OH35,A61:OH61,A64:OH65,A67:OH67,A71:OH72,A84:OH84,
>A88:OH88,A90:OH90,A104:OH104,A107:OH108,A110:OH110,A114:OH114,A132:OH133,A151:OH151,A157:OH157,A160:OH160,A167:OH167,
>A175:OH175,A184:OH184,A211:OH211,A205:OH205").Copy
>　　ThisWorkbook.Activate
>　　Sheets("OTHER").Select
>　　Range("A2").PasteSpecial Paste:=xlPasteValues, Transpose:=True

1 hits

▼

【77443】多量の複数セルをコピーし入れ替えして貼り付け YUKI 15/10/7(水) 14:18