Excel VBA質問箱 IV

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

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


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

4897 / 76732

←次へ　｜　前へ→


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

ichinose - 15/10/9(金) 7:05 -


	引用なし

	パスワード

▼カリーニンさん：
>試してませんが、セルに名前を定義して、その名前を使う、というのはどうでしょう？
ありがとうございます。

新発見でした。これだとかなり、大きいセル範囲が取得できますね！！

が、これでも限界はありそうです。

Sub test1()
　　Dim rng As Range
　　Dim add As String
　　Dim st As Double
　　Dim idx As Long, jdx As Long
　　st = Now()
　　add = "=" & Cells(1, 1).Address(False, False)
　　For idx = 1 To 44 Step 2
　　　 For jdx = 3 To 20 Step 2
　　　　　add = add & "," & Cells(idx, jdx).Address(False, False)
　　　　　Next
　　　 Next
　　Debug.Print Len(add)
　　Names.add Name:="aaaa", RefersTo:=add
　　Range("aaaa").Select
　　MsgBox Format(Now() - st, "hh:mm:ss")
End Sub

>For idx = 1 To 44 Step 2

Excel2010で　idxが　44だと正常に処理できますが、45では、Names.addの箇所でエラーに成りました。

これを使えば　長いセル範囲（セルアドレス）を操作したい時に　Unionの回数は減らせそうです

0 hits

▼

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