質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

6709閲覧

指定範囲内の指定列をループ処理する方法

Wolf

総合スコア38

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2017/11/10 08:09

Columnsプロパティで指定した範囲の扱いについて、お尋ねします。

ある指定した範囲(例.三行一列)について、ループ処理を行います。

Sub Sample_01() Dim myRng As Range Dim r As Range Set myRng = Range("A1:A3") For Each r In myRng Debug.Print r.Value Next End Sub

ここで、処理範囲の表現を「三行三列の中の一列目」に改めたところ、

実行時エラー '13':
方が一致しません。

が生じました。

Sub Sample_02() Dim myRng As Range Dim r As Range Set myRng = Range("A1:C3") For Each r In myRng.Columns(1) Debug.Print r.Value Next End Sub

上記のような用法においては、どのような記述が正しいでしょうか。
ご教示のほど、宜しくお願します。

※参考までに、↓なら上手くいくのですが、出来れば「一旦選択する」のは避けたいです。

VBA

1 2Sub Sample_03() 3 4 Dim myRng As Range 5 Dim r As Range 6 7 Set myRng = Range("A1:C3") 8 myRng.Columns(1).Select 9 For Each r In Selection 10 Debug.Print r.Value 11 Next 12 13End Sub

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

うぬー

ウォッチで見たのですが、結局rが2次元配列っていうのが元凶ですね・・・
なので、ご自分のコードにあるとおりSelectするしかないかもです。

まぁ、あえて・・・でいうと、以下がそれっぽいです。

Set myRng = Range("A1:C3") For Each r In myRng.Columns(1).Cells Debug.Print r Next

投稿2017/11/10 12:35

momon-ga

総合スコア4820

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Wolf

2017/11/10 13:04

ご教示いただいた方法で、希望のとおり動作することを確認しました。 早速の回答、ありがとうございます!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問