Excel VBA質問箱 IV

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

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


64646 / 76738 ←次へ | 前へ→

【16672】セル範囲を変数で表したいのですが・・・
質問  Rika☆  - 04/8/5(木) 15:47 -

引用なし
パスワード
   はじめまして。VBAはじめて半年ほどの者です。
今回、以下のようなマクロを組みました。
セル範囲Range("A19:D40")の中のデータで、
別テーブル内、Aの列のデータがあれば、Bの列のデータに置き換える、というマクロです。
以下のコードで、正常に動作しました!


Sub 範囲内で置き換え()
  Dim mr As Range
  Dim A(13) As String
  Dim B(13) As String
  Dim i As Integer
   
  
For i = 0 To 13
  A(i) = Cells(i + 2, 3)
  B(i) = Cells(i + 2, 4)
  
  For Each mr In ActiveSheet.Range("A19:D40")
    If mr.Value = A(i) Then
      mr.Value = B(i)
    End If
  
  Next
Next
End Sub


これは、静的配列なのですが、動的配列にしたくて、変数iを、
そのときのテーブルの行数によって変わるように、

Selection.CurrentRegion.Select
Selection.End(xlDown).Activate

i = ActiveCell.Row

とすると、テーブルの行数が変わっても動作するようになりました。

私がしたいのはこれからです。

セル範囲、Range("A19:D40")が、そのときによって範囲(行数)が変わるばあい、
Range(Cells(19, 1), Cells(4, i))・・・iは上記のように、行数を取得したいのですが、
エラーがでてうまく動きません。
このように、セル範囲の行数がそのときによって変わる場合はどのようにしたらよいのでしょうか?
すみませんが、助言いただければと思います。よろしくお願いいたします!

0 hits

【16672】セル範囲を変数で表したいのですが・・・ Rika☆ 04/8/5(木) 15:47 質問
【16673】Re:セル範囲を変数で表したいのですが・・・ IROC 04/8/5(木) 15:52 回答
【16677】Re:セル範囲を変数で表したいのですが・・・ Rika☆ 04/8/5(木) 17:31 お礼
【16675】Re:セル範囲を変数で表したいのですが・・・ Asaki 04/8/5(木) 15:58 回答
【16678】Re:セル範囲を変数で表したいのですが・・・ Rika☆ 04/8/5(木) 17:33 お礼
【16679】Re:セル範囲を変数で表したいのですが・・・ Asaki 04/8/5(木) 20:26 発言

64646 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free