VBA 範囲指定について

質問

VBAでシートAの範囲A1：B200までをコピーして
シートBの範囲A1：B200にコピペしたいのですが、
範囲のB200のみ変動する可能性があるので、その変動に対応出来るようにしたいです。

例）
Worksheets("A").Activate
PD = Worksheets("入院費用一覧").Range("A1:B〇〇〇").Value
Windows("B").Activate
Worksheets("B").Range("A1:B〇〇〇").Value = PD

B〇〇〇の所に変動できる数値を関数でC1に行数指定して対応できないかと考えていますが、何かいい方法有りますでしょうか。
宜しくお願い致します。

※VBAあまり詳しくはありません。

回答No.1

kagakusuki · ベストアンサー

>B〇〇〇の所に変動できる数値を関数でC1に行数指定

との事ですが、そのC1とは、どのシートのC1セルの事なのでしょうか？
　入院費用一覧シートのC1セルの事なのでしょうか？　それともAシートのC1セルの事なのでしょうか？　それともBシートのC1セルの事なのでしょうか？
　取り敢えず、AシートのC1セルに「B〇〇〇の所に変動できる数値」の値が存在している場合に対応するVBAを御伝えしておきますので、もしシートが違っている場合には指定するシートを適時変更して下さい。

Dim myRange As Range, buf As Variant

buf = Worksheets("A").Range("C1").Value
If Not(buf > 1 and buf <= Rows.Count) Then buf= 0.5
If buf > Int(buf) Then
Msgbox "C1セルlに行数が指定するための値が入力されておりません>" _
& vbCrLf & "マクロを終了いたします。" & vbExclamation, "行数未設定"
Exit Sub
End If

Set myRange = Worksheets("入院費用一覧").Range("A1:B" & buf)
Worksheets("B").Range("A1") _
.Resize(myRange.Rows.Count_,myRange.Columns.Count).Value _
= myRange.Value
Worksheets("B").Activate

回答No.3

ushi2015

こんにちは
ひょとして、セルC1で数値で指定しなくても、最終行を判定するだけ良いなら、
Sub test()
　　Dim t As String
　　With Worksheets("入院費用一覧")
　　　　t = .Range("A1", .Range("B" & Rows.Count).End(xlUp)).Address
　　　　Worksheets("B").Range(t).Value = .Range(t).Value
　　End With
End Sub
とかでも。

回答No.2

keithin

sub macro1()
　dim LastRow as long
　lastrow = worksheets("不明の").range("C1").value
　worksheets("B").range("A1:B" & lastrow).value = worksheets("A").range("A1:B" & lastrow).value
end sub
みたいにします。