|
A 列の情報を比較
上下行で変わる場合 間に1行含ませたいが
下記状態で動きません
Sub A行情報変わる位置行挿入()
'B列 列挿入 Range("B:B").Select
Selection.Insert Shift:=xlToRight
'A2の情報をA1へ Range("A2").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
'数式入力 Range("B2").Select
ActiveCell.FormulaR1C1 = "=EXACT(R[-1]C[-1],RC[-1])"
'B列オートフィルタ Selection.AutoFill Destination:=Range("B2:B1109")
'False値を抽出 Range("B2:B1109").Select
Range("B1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="FALSE"
Selection.SpecialCells(xlCellTypeVisible).Select
Rows("1:1105").Select
'可視セルのみ選択 Selection.SpecialCells(xlCellTypeVisible).Select
'行挿入 Selection.Insert Shift:=xlDown 'データ消失を防ぐ為エラーRangeクラスメゾネットエラー
Selection.AutoFilter Field:=2
'抽出の為の列削除 Rows("2:2").Select
Selection.Delete Shift:=xlUp
Columns("A:B").Select
Range("B1").Activate
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
上記が直せるか
他 方法がありましたら教えてください
|
|