教えてください。
sheet2のG1に3と入力しマクロを実行すると、sheet1のA列（通し番号）の3～5の行をコピーして、sheet2のA２にペーストしたいと思ってます。
（sheet1)
番号 数値1 数値2 数値3 数値4
1 5 10 15 20
2 10 15 20 25
3 5 15 20 20
4 10 20 15 25
5 10 15 20 20
・ ・ ・ ・ ・
・ ・ ・ ・ ・
↓
(sheet2)
番号 数値１ 数値2 数値3 数値4 3
3 5 15 20 20
4 10 20 15 25
5 10 15 20 20
イメージとしては上の通りです。
まずは、同じsheet1のG1に3を入力して、A列の3（A4）を検索することを目標にしましたが、ここの時点でこけてしまいました。。
Sub 同じ数値のセルを検索()
Dim 番号 As String
Dim FoundCell As Range
Range("A1").Select
番号 = "G1"
Set FoundCell = Cells.Find(What:="番号")
If FoundCell Is Nothing = False Then
FoundCell.Select
End If
End Sub
笑われると思いますが、これではダメでした。
どうかお助けしていただけないでしょうか。
↧