Excel VBA質問箱 IV

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

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


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

25923 / 76736

←次へ　｜　前へ→


	【56150】Re:行単位の比較方法

n - 08/6/5(木) 14:37 -


	引用なし

	パスワード

▼Abebobo さん：蛇足でごめんなさい。 Abeboboさんのそのコードでは、INDEX関数を使うメリットが半減しています。ワークシート関数INDEXのヘルプを参照してください。『配列が複数行および複数列で構成され、　行番号または列番号のどちらか一方しか指定されていない場合、　配列の中にある行または列全体の配列が返されます。』 Sub try() 　　Dim i As Long 　　Dim v, x 　　v = [{11,21,31;12,22,32;13,23,33}] 　　For i = 1 To 3 　　　　x = Application.Index(v, i, 0) 　　　　Stop 　　　　Debug.Print Join(x) 　　Next End Sub 上記は２次元配列から各行を１次元配列で取り出す例です。最初に配列vにまとめて格納し、後はそれをLoopすればよいです。（今回のケースは、後でセルに戻す時の事を考えると、DataObjectを使ったほうが良いとは思いますが）