|
▼kanabun さん:
ありがとうございます。
> > M.xlsというファイル
> は Excel Book でしょ?
> Bookを開くのは Workbooks.Openメソッドです。
Mは或るシステムからダウンロードしてるためもとはcsvでしたので混乱しました。
M.xlsとして仰るとおりOpenメソッドで開くようにいたします。
アドバイスにしたがって書いてみました。
が、Rangeメソッドが失敗 と出ます。書き方が間違っていますでしょうか。
何卒御教示ください。
Option Explicit
Sub Macro1()
Dim i As Integer
Dim j As Integer
Workbooks.Open Filename:="U:\M.xls"
Worksheets("Sheet1").Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
'↓100というのは仮で、xlDownでデータの在る最終行までとしたいです。
For i = 2 To 100
'↓ここが黄色になります
If Range(Cells(i, 1)).Value = Range(Cells(i - 1, 1)).Value Then
j = 1
ActiveCell.Offset(0, 2).Range("A1").Select = j
Else
If ActiveCell.Offset(0, 1).Range("A1").Select = ActiveCell.Offset(-1, 0).Range("A1").Select Then
ActiveCell.Offset(0, 2).Range("A1").Select = j
Else
j = 1
ActiveCell.Offset(0, 2).Range("A1").Select = j
End If
End If
j = j + 1
Next
End Sub
|
|