質問編集履歴
1
こうでよいのでしょうか・・・
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
Dim name As String, FM As String, adress1 As String, adress2 As String, Row As String
|
|
17
17
|
Dim data As Long, i As Long
|
|
18
18
|
|
|
19
|
-
'Sheet2の内容を消しておく ★
|
|
19
|
+
'Sheet2の内容を消しておく ★解決
|
|
20
20
|
Sheet2.Range("A2:H100").ClearContents
|
|
21
21
|
|
|
22
22
|
'検索結果に記入されたデータを格納
|
|
@@ -39,6 +39,9 @@
|
|
|
39
39
|
continue1:
|
|
40
40
|
Row = Range(Cells(i, 1), Cells(i, 8)).Value
|
|
41
41
|
Row.Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) ★Rowの修飾子不明
|
|
42
|
+
```lang-言語名
|
|
43
|
+
修飾子が不正です
|
|
44
|
+
```
|
|
42
45
|
|
|
43
46
|
continue2:
|
|
44
47
|
Next i
|