EXCELのVBAです。


(1)H列にあるデータのうち、文字列「aaa」に一致する行数を取得

(2)H列にあるデータのうち、文字列「aaa」に一致するセル番地を取得

以上です。

以上のコードが書ける方、どうぞお教えください。

回答の条件
  • 1人5回まで
  • 登録:2006/06/14 01:05:58
  • 終了:2006/06/14 01:35:12

回答(1件)

id:villain No.1

villain回答回数174ベストアンサー獲得回数122006/06/14 01:29:13

ポイント60pt

これでどうでしょうか。

もし、違ったらすみません。


Sub Get()
    Dim J As Long
    For I = 1 To 65536
        If Cells(I, 9).Value = "aaa" Then
            J = J + 1
            Cells(I, 2).Value = "アドレス: " & Cells(I, 9).Address(False, False)
        End If
    Next
    Cells(1, 1).Value = "総数: " & J
End Sub
id:kitatom

For文じゃないとだめですかね?

2006/06/14 01:32:11

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません