|
再度行き詰ってしまったのでお願いします。
別ブックから該当の複数セルを選択し、行列を入れ替えて値貼付を行いたいです。
コピーの対象は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
|
|