Excel VBA質問箱 IV

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

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


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

48834 / 76737

←次へ　｜　前へ→


	【32832】Resizeの使い方

わさび - 05/12/23(金) 10:43 -


	引用なし

	パスワード

いつもお世話になっております。

今、Worksheets("リスト")にある表の値を、
Worksheets("メンバー別")のセルに入れたいのですが、
Worksheets("リスト")には、２列で１セットの表がいくつかあるので、
Worksheets("リスト").Range("B3")に、
使用したいリストの左の列を入力することで選択してもらおうと考えてます。

Worksheets("リスト")にある表は必ず６行目以降にあります。
Worksheets("メンバー別")では必ずA列とB列の５行目以降に値を入れます。

そこで以下のコードを作成し、試しにRange("B3")に「A」をいれて、
Worksheets("リスト")のA列とB列の表にある値を、
Worksheets("メンバー別")に入れようとしたのですが、
実行したところ、Worksheets("メンバー別")のA列とB列の両方に同じ値…
Worksheets("リスト")のA列の値が入ってしまいました。

Resizeの使い方をいまいちよくわかってないのですが、
どこが悪いのか、もしくはもっといい方法をどうかご指南ください。
宜しくお願い致します。

----------
Sub Member_List()

　Dim LASTrow As String, sldLIST As String
　sldLIST = Worksheets("リスト").Range("B3").Value
　LASTrow = Worksheets("リスト").Range(sldLIST & "65536").End(xlUp).Row

　Worksheets("メンバー別").Range("A5:B" & LASTrow - 1).Value = _
　Worksheets("リスト").Range(sldLIST & "6:" _
　　& sldLIST & LASTrow).Resize(, 1).Value
　　
End Sub
----------

0 hits

▼

【32832】Resizeの使い方 わさび 05/12/23(金) 10:43

≪