글 수 65
Range("G10").Select
ActiveCell.FormulaR1C1 = "23"
Range("I10:J15").Select
Range("I10:J15").Select
Range("I11").Activate
ActiveCell.FormulaR1C1 = "0"
Columns("J:K").Select
Range("K1").Activate
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Copy
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
-----------------------------------------------------------
' 마지막에 입력한 데이터 삭제하기...........
Dim r As Long
With Sheets("Sheet2")
r = .Range("A1").CurrentRegion.Rows.Count
If r = 1 Then
MsgBox "삭제할 데이터가 없습니다.", vbExclamation, ExcelLove
Else
.Rows(r).Delete
End If
End With
-----------------------------------------------------------
ActiveCell.FormulaR1C1 = "23"
Range("I10:J15").Select
Range("I10:J15").Select
Range("I11").Activate
ActiveCell.FormulaR1C1 = "0"
Columns("J:K").Select
Range("K1").Activate
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Copy
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
-----------------------------------------------------------
' 마지막에 입력한 데이터 삭제하기...........
Dim r As Long
With Sheets("Sheet2")
r = .Range("A1").CurrentRegion.Rows.Count
If r = 1 Then
MsgBox "삭제할 데이터가 없습니다.", vbExclamation, ExcelLove
Else
.Rows(r).Delete
End If
End With
-----------------------------------------------------------