Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5513 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【50364】範囲選択を変数で Yuko 07/7/21(土) 7:51 質問[未読]
【50366】Re:範囲選択を変数で Koyu 07/7/21(土) 10:31 発言[未読]
【50367】Re:範囲選択を変数で Yuko 07/7/21(土) 12:48 質問[未読]
【50368】Re:範囲選択を変数で りん 07/7/21(土) 13:22 発言[未読]
【50369】Re:範囲選択を変数で Yuko 07/7/21(土) 13:43 質問[未読]
【50370】Re:範囲選択を変数で マクロマン 07/7/21(土) 13:51 発言[未読]
【50371】Re:範囲選択を変数で Yuko 07/7/21(土) 14:04 お礼[未読]
【50364】範囲選択を変数で
質問  Yuko  - 07/7/21(土) 7:51 -
引用なし
パスワード
   おはようございます。
【50224】で質問させていただきました。

Dim x As Long, ｙ As Long

　With Sheets("AAA")
　　x= .Range("H" & .Rows.Count).End(xlUp).Row
　　For ｙ = 3 To x
　　　　.Range("J" & ｙ).Value = Application.VLookup(.Range("H" ＆ｙ）.Value,Sheets(3).Range("D2:N100"), 11, False)
　　　　　　
　　　　 Next
End With

N列のデータが一定ではないので
上記 .Range("D2:N100")のN列を変数で出来ませんでしょうか？

よろしくお願いします。
【50366】Re:範囲選択を変数で
発言  Koyu  - 07/7/21(土) 10:31 -
引用なし
パスワード
   ▼Yuko さん：

余裕を持たせN200位にしておいては？
変数にするのだって、何かの基準が必要と思うのだが
･･･どこかの列の最後のRowとか？
【50367】Re:範囲選択を変数で
質問  Yuko  - 07/7/21(土) 12:48 -
引用なし
パスワード
   Koyu さん　ご返事ありがとうございます。

n200にしても問題はないのですが、

Dim x As Long, ｙ As Long　,n As Range

　With Sheets("AAA")
　　x= .Range("H" & .Rows.Count).End(xlUp).Row
　　n=Worksheets(3).Range("n63556").End(xlUp).Row
　　For ｙ = 3 To x
　　　　.Range("J" & ｙ).Value = Application.VLookup(.Range("H" ＆ｙ）.Value,Sheets(3).Range("D2"& n), 11, False)
　　　　　　
　　　　 Next
End With

上記のように変数を使いたいのですがエラーになります。
【50368】Re:範囲選択を変数で
発言  りん E-MAIL  - 07/7/21(土) 13:22 -
引用なし
パスワード
   Yuko さん、こんにちは。

Vlookupの式が変ですね。
>　　　　.Range("J" & ｙ).Value = Application.VLookup(.Range("H" ＆ｙ）.Value,Sheets(3).Range("D2:N" & n), 11, False)
【50369】Re:範囲選択を変数で
質問  Yuko  - 07/7/21(土) 13:43 -
引用なし
パスワード
   ▼りん さん：
>Yuko さん、こんにちは。
>
>Vlookupの式が変ですね。
>>　　　　.Range("J" & ｙ).Value = Application.VLookup(.Range("H" ＆ｙ）.Value,Sheets(3).Range("D2:N" & n), 11, False)

ご返事ありがとうございます。

Dim x As Long, ｙ As Long　,n As Range

　With Sheets("AAA")
　　x= .Range("H" & .Rows.Count).End(xlUp).Row
　　n=Worksheets(3).Range("n65536").End(xlUp).Row ←エラーになります
　　For ｙ = 3 To x
　　　　.Range("J" & ｙ).Value = Application.VLookup(Range("H" ＆ｙ）.Value,Sheets(3).Range("D2:y"& n), 11, False)
　　　　　　
　　　　 Next
End With
【50370】Re:範囲選択を変数で
発言  マクロマン  - 07/7/21(土) 13:51 -
引用なし
パスワード
   >n As Range
↓では？
n As Long
【50371】Re:範囲選択を変数で
お礼  Yuko  - 07/7/21(土) 14:04 -
引用なし
パスワード
   ▼マクロマン さん：
>>n As Range
>↓では？
>n As Long

ご返事ありがとうございます。
n As Longでできました。

まだまだ勉強不足のようです。

ご返事いただきました皆様ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5513 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free