Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19516 / 76736

←次へ　｜　前へ→


	【62651】グループ内で番号付与するには

にしもり - 09/8/19(水) 12:55 -


	引用なし

	パスワード

こんにちは。
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

ですが、引数は省略できません、と出ます。
基本的に間違ってますでしょうか。
いつもすみません。

0 hits

▼

【62651】グループ内で番号付与するには にしもり 09/8/19(水) 12:55

≪