初めまして、観覧ありがとうございます。
VBAについて、2点ほどうまくいかず、質問させていただきました。
1、sheet1で実行した際、sheet2の内容をクリアにすることができない
2、修飾子不明のエラーが出るが、原因が見つからない
勉強不足で多雨異変申し訳ありませんが、自力では解決できずに時間だけがすきていきます。
どうか、お力をお貸ししていただえたら幸いです。
よろしくお願い致します。
Option Explicit
lang
1VBA
Dim name As String, FM As String, adress1 As String, adress2 As String, Row As String
Dim data As Long, i As Long
'Sheet2の内容を消しておく ★解決
Sheet2.Range("A2:H100").ClearContents
'検索結果に記入されたデータを格納
name = Range("M2").Value
FM = Range("P2").Value
adress1 = Range("M3").Value
adress2 = Range("M4").Value
'cellの値とそれぞれが一致したら、その配列をコピーペースト
For i = 2 To Rows.Count
If Cells(i, 2).Value = "" Then
GoTo continue1
Else
If Cells(i, 2).Value <> name Then
GoTo continue2
Else
continue1:
Row = Range(Cells(i, 1), Cells(i, 8)).Value
Row.Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) ★Rowの修飾子不明
lang
1修飾子が不正です
continue2:
Next i
End If
End If
End Sub
回答3件
あなたの回答
tips
プレビュー