|
あいこ さん こんばんは
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の文字がくっつきます。
初期設定は見出し行と仮定し上段をつかってます。
違ったらごめんなさい。
|
|