|
とまとさん、ありがとうございます!
昨日のうちに返信が届いているなんて驚きです!
ちなみに1行目は見出しです。
きょう、早速やってみたのですが、すべての行が
処理されませんでした。
実際は何百行もあるのと、行数が一定していないのです。
最終行まで処理させるためにはどの部分を変更すれば良いのでしようか?
よろしくご教授くださいませ。
▼とまと さん:
>あいこ さん こんばんは
>1つ質問ですが、1行目は見出し行でしょうか?
>
>Sub 重複を削除()
>
>Dim r As Range
>Dim MyR As Range
>
>Rows("1:1").Insert Shift:=xlDown
>Set MyR = Range(Range("A2").End(xlToRight), Range("A2").End(xlToRight).End(xlDown))
>
> For Each r In MyR
> If r.Row <> 2 Then r.Value = r.Text & ".dat" '見出し行ならこちら
> ' r.Value = r.Text & ".dat" 'すべてデータ行ならこちら
> Next
>
> ’↓2列目の重複を削除
> Columns(2).AdvancedFilter xlFilterInPlace, Unique:=True
> With MyR.Offset(, 1)
> .SpecialCells(xlCellTypeVisible).Value = "削除"
> .SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlShiftUp
> .Clear
> End With
> ActiveSheet.ShowAllData
>
> Rows("1:1").Delete Shift:=xlUp
>
> Range("A:A,D:D,F:F").Delete Shift:=xlToLeft '列を削除
>
>
>End Sub
>
>
>コードの下記↓の部分ですが
>
> For Each r In MyR
> If r.Row <> 2 Then r.Value = r.Text & ".dat" ’見出し行ならこちら
> ' r.Value = r.Text & ".dat" 'すべてデータ行ならこちら
> Next
>
>見出し行なら上段をそうでないなら下段を使ってください。
>見出し行だとすると見出しにまで.datの文字がくっつきます。
>初期設定は見出し行と仮定し上段をつかってます。
>違ったらごめんなさい。
|
|