Excel VBA質問箱 IV

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

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


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

46900 / 76736

←次へ　｜　前へ→


	【34803】Application.Matchを使って見つからなかったとき

K.K - 06/2/13(月) 14:11 -


	引用なし

	パスワード

「Range("C8:C17")でFundNameを検索し、見つかればコピー」ということをやりたいです。

Dim j As Integer, RowCounter As Variant
Dim FundName(11) As String

FundName(1) = "A"
FundName(2) = "B"
・
・
・
FundName(10) = "J"

For j = 1 To 10
　　　　 RowCounter = Application.Match(FundName(j), Range("C8:C17"), 0)
　　　　 If Not RowCounter = "#N/A" Then
　　　　 Range(Cells(RowCounter + 7, "C"), Cells(RowCounter + 7, "M")).Copy

のコードを書いたのですが、"If Not RowCounter = "#N/A" Then"で「型が一致しません」のエラーが起きます。どういうコードにすれば良いのでしょうか。

0 hits

▼

【34803】Application.Matchを使って見つからなかったとき K.K 06/2/13(月) 14:11

≪