VBA resizeの使い方

以下のコードで外部から取得したセル範囲rangeAをresizeを使って
変更しようとしていますが，できません．　どこが間違っているのでしょうか．　よろしくご教示ください．

Sub No1autofill(A As String, b As Integer)
Dim rangeA As Range, rangeC As Range
Dim rowA As Integer, columnA As Integer, rowsC As Integer
Set rangeA = Range(A)
rowA = rangeA.Row
columnA = rangeA.Column
rowsC = b - rowA
Set rangeC = rangeA.Resize(rowsC + 1, columnA)

No.1 ベストアンサー 回答者： onlyrom 回答日時： 2007/02/23 11:18

こんにちは。

＞変更しようとしていますが，できません

できません、だけではなく、
どういうふうにできないのかを書かないと.....

ぱっと見では、

＞rowsC = b - rowA

この、rowsC、がマイナスになると拙いですよね。

以上です。

この回答への補足

内容補足します．
Ａ，b,rowsCが意図した数値であることは，msgboxで確認していますが，セル範囲を変更したはずのrangeCのrowが１のままなのです．

補足日時：2007/02/24 17:34

No.3 回答者： onlyrom 回答日時： 2007/02/24 22:58

No1です。

＞セル範囲を変更したはずのrangeCのrowが１のままなのです．
＞rangeCの行数rangeC.rowをMSGboxで見ると，
＞b,rowAの数値に関わらず，１なのです．

範囲の「行数」を求めるときは、
　Row　プロパティではなくて、
　Rows　（Rowにs付き）プロパティです。

確認してください。
以上です。
　

この回答へのお礼

御礼遅れました．

回答の件，確認しました．
ご指摘のとうりでした．
ありがとうございました．

お礼日時：2007/03/28 00:31

No.2 回答者： imogasi 回答日時： 2007/02/24 09:11

>rowsC = b - rowA

のｂはどこで定義・計算・設定されていますか。
部分的なコード部分だけを掲出されてもね。

この回答への補足

内容補足します．
bとＡは，ワークシート上に出力された以下ユーザーフォームで
　A = UserForm1.RefEdit1.Text
b = UserForm1.TextBox1.Text
から入力したもので，Ａ，b,rowsCが意図した数値に
なっていることは，MSGboxで出力させて確認しています．
しかし，rangeCの行数rangeC.rowをMSGboxで見ると，
b,rowAの数値に関わらず，１なのです．
resizeで変更されておらず，もとのrangeAの行数が1でなくても１になります．

補足日時：2007/02/24 17:33