|
Sub 行削除()
Range("J2:J104").Formula = "=IF(G2-H2=0,"""",G2-H2)"
Columns("J:J").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
With Columns("J:J")
'↓データ → 区切り位置 そのまま完了 で、""を空白にする。(マクロ記録)
'↓Range("J1")のままだとなんなので、.Cells(1) に変更可。
.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End With
End Sub
注)データ → 区切り位置 そのまま完了
文字の数字も数値に変換されます。
例、
00001 → 1
|
|