자기 개발하기

Sub 매크로1()
'
' 매크로1 매크로
'

'

    
    Cells.Find(What:="보통소계", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
        
    Set rowNum = Range(ActiveCell.Address)
    rowNum.Offset(-1, 0).Select ' 위로한칸이동
    Dim adrSave As String
    adrSave = ActiveCell.Address
    ' MsgBox adrSave
    
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "=ROW()-6"
    ' Selection.AutoFill Destination:=Range("A7:A20")
    
    Selection.AutoFill Destination:=Range("A7:" & adrSave)   ' Range("A7:rowNum")
    
        Cells.Find(What:="우1-00001", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
        
        ActiveCell.Range(Cells(1, 1), (Cells(5, 5))).Select
        
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range(ActiveCell.Address), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Sheet1").Sort
            .SetRange ActiveCell.Range(Cells(1, 1), (Cells(5, 5)))
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    
End Sub

Sub 특정단어검색()

     Cells.Find(What : = "특정단어", After : = ActiveCell, LookIn :=xFormulas, _

     LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirectin:=xlNext, _

     MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate

Selection.EntireRow.Insert, CopyOrigin:=xlFormatFromLeftOrAbove

ActiveCell.FormulaR1C1 = "합계"

Set Rng = Range(ActiveCell.Address)

Rng.Offset(0,1).Select '//오른쪽으로이동

ActiveCell.FormulaR1C1 = "=SUM(B2:R[-1]C)" '//합계

ActiveWindow.SmallScroll Down:=-1

Cells.Replace What:="'B2'", Replacement:="B2", LookAt:=xlPart, _

      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

      ReplaceFormat:=False

'// B2에 "" 가붙으므로 제거

End Sub