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

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

ただいまの
回答率

90.98%

  • VBA

    1423questions

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

  • Excel

    1225questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

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

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 350

Wolf

score 30

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


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

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

Sub Sample_03()

    Dim myRng   As Range
    Dim r       As Range

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

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

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

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

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+1

うぬー

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/11/10 22:04

    ご教示いただいた方法で、希望のとおり動作することを確認しました。

    早速の回答、ありがとうございます!

    キャンセル

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

  • ただいまの回答率 90.98%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

  • 受付中

    VBA cpu使用率取得

    プログラミング初心者のものです。管理者の制約で、学校でタスクマネージャを開くことができません。そこでエクセルvbaでタスクマネージャを再現しようと思い、日々精進しております。学校に

  • 解決済

    2行以上連続で追加行を増やしたい

    実現したいこと 【要望】 データ管理をしているエクセルです。 社員データを追加したい場合、一番下の行に追加するのではなく、間に行を追加して入力していきたいのです。1行ずつ追加す

  • 解決済

    VBAの配列の質問

    VBAの配列で教えてほしい事があります。 同一ブック内に2つのsheetがあります。 ”集計結果”と”一時保管”です。 ”一時保管”はA~D列にデータが入っています。

  • 解決済

    部分一致かつ文字数が短いときに隣の列に検索値を与えたい

    前提・実現したいこと 下記内容を実現するにあたり、コードについて教えていただければ幸いです。 A        B       C みかん りんご   りんごジュース 

  • 解決済

    VBA高速化について

    20個のエクセルファイルを読み込み、特定のシートにあるテーブルから特定の値を探し出し、その右横にあるセルの値を取り出します。 集計用のエクセルのテーブルでも、同じ特定の値をテーブル

  • 解決済

    VBA sheetのセレクト情報をリセットしたいです。

    VBAのプログラム内で、RangeやCellsを指定して.selectをしている箇所が複数あるのですが、 処理が一通り走った後、参照先のsheetを見ると、プログラム内部でSele

  • 解決済

    VBA Dictionary 取り出し方にて質問

    VBAにて下記実装を行いました。 Dim dictionary As Variant Set dictionary = CreateObject("Scripting.Dict

  • 解決済

    指定範囲内のセルから数字を含まないセルを削除したい

    VBAを使ってエクセルの指定範囲内のセルから数字を含まないセルを削除したいと考えています。 具体的にはシート名”抽出”のJ列2行目から最終行までで、セル内に0~9の数字が入って

同じタグがついた質問を見る

  • VBA

    1423questions

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

  • Excel

    1225questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。