Excel VBA質問箱 IV

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

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


4905 / 76735 ←次へ | 前へ→

【77445】Re:多量の複数セルをコピーし入れ替えして貼り付け
発言  ichinose  - 15/10/8(木) 7:03 -

引用なし
パスワード
   >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
Sub test()
  Dim add As String
  add = "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"
  MsgBox Len(add)
  Range(add).Copy
End Sub


セルアドレス文字列長が255を超えると、
range("xxx")は、提示されたようなエラーに成ります。

この255を意識したコードにしなければなりません。

かと言って、単純に255で切るって訳には行きませんしね!!

既に提示されているようにUnionメソッドは、有効方法ですが、
これとて、セルアドレスが多くなると、処理速度が、極端に落ちますから、
注意が必要です。


www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=54;id=FAQ

↑目安箱より、「トロイぞUnion」

0 hits

【77443】多量の複数セルをコピーし入れ替えして貼り付け YUKI 15/10/7(水) 14:18 質問[未読]
【77444】Re:多量の複数セルをコピーし入れ替えして... ウッシ 15/10/7(水) 15:12 回答[未読]
【77445】Re:多量の複数セルをコピーし入れ替えして... ichinose 15/10/8(木) 7:03 発言[未読]
【77446】Re:多量の複数セルをコピーし入れ替えして... カリーニン 15/10/8(木) 10:02 発言[未読]
【77447】Re:多量の複数セルをコピーし入れ替えして... YUKI 15/10/8(木) 13:23 お礼[未読]
【77448】Re:多量の複数セルをコピーし入れ替えして... カリーニン 15/10/8(木) 17:53 発言[未読]
【77450】Re:多量の複数セルをコピーし入れ替えして... ichinose 15/10/9(金) 7:05 発言[未読]
【77451】Re:多量の複数セルをコピーし入れ替えして... β 15/10/9(金) 9:08 発言[未読]

4905 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free