|
こんにちは。
M.xlsというファイルに次のようなデータが入っています。
いま、IDが同じだったらJUSHOに応じてSENDIDを付与したいです。
たとえば、
+-----+-------------+------+
| ID|JUSHO |SENDID|
+-----+-------------+------+
|1 |東京都千代田区1-1 | |
+-----+-------------+------+
|1 |東京都千代田区1-1 | |
+-----+-------------+------+
|1 |東京都練馬区1-1 | |
+-----+-------------+------+
|1 |東京都練馬区1-1 | |
+-----+-------------+------+
|1 |東京都千代田区1-1 | |
+-----+-------------+------+
|1 |東京都豊島区1-1 | |
+-----+-------------+------+
|1 |東京都千代田区1-2 | |
+-----+-------------+------+
|2 |東京都中央区1-1 | |
+-----+-------------+------+
|3 |東京都渋谷区1-1 | |
+-----+-------------+------+
上記を以下のようにしたいのです。
+-----+-------------+------+
| ID|JUSHO |SENDID|
+-----+-------------+------+
|1 |東京都千代田区1-1 | 1|
+-----+-------------+------+
|1 |東京都千代田区1-1 | 1|
+-----+-------------+------+
|1 |東京都練馬区1-1 | 2|
+-----+-------------+------+
|1 |東京都練馬区1-1 | 2|
+-----+-------------+------+
|1 |東京都千代田区1-1 | 1|
+-----+-------------+------+
|1 |東京都豊島区1-1 | 3|
+-----+-------------+------+
|1 |東京都千代田区1-2 | 4|
+-----+-------------+------+
|2 |東京都中央区1-1 | 1|
+-----+-------------+------+
|3 |東京都渋谷区1-1 | 1|
+-----+-------------+------+
そこでこう書きました。↓
Option Explicit
Sub Macro()
Dim myTxtFile As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Application.ScreenUpdating = False
myTxtFile = ActiveWorkbook.Path & "\M.xls"
' Worksheets("Sheet1").Activate
Open myTxtFile For Input As #1
i = 1
k = 1
Do Until i = EOF
j = Cells(i, 1)
Cells(i, Offset(2)) = k
If i = i + 1 Then Do:
Else: k = k + 1
Next j
Loop
Close #1
' ActiveWorkbook.Close True
End Sub
ですが、引数は省略できません、と出ます。
基本的に間違ってますでしょうか。
いつもすみません。
|
|