VBA 메크로 모음

 

첫 째줄 텍스트만 추출 

 

Sub 첫째줄텍스트덮어쓰기()

    Dim i As Long
    Dim str As String
    Dim str_split As Variant
    Dim Row As String
    Dim Column As String
    Dim total As Long
    
    Row = InputBox("행 입력")
    Column = InputBox("열 입력")
    total = Row + 50
    
    For i = 0 To total
    
        If Not IsEmpty(Cells(Row + i, Column)) Then
        str = Cells(Row + i, Column)
        str_split = Split(str, Chr(10))
        Cells(Row + i, Column).Value = str_split(0)
        End If
        
    Next i

End Sub

 

 

숫자 증가

 

Sub 숫자증가()

    Dim i As Long
    Dim str As String
    Dim str_split As Variant
    Dim Row As String
    Dim Column As String
    Dim total As Long
    
    Row = InputBox("행 입력")
    Column = InputBox("열 입력")

    total = Row + 50
    
    For i = 0 To total
        
        Cells(Row + i, Column).Value = i + 1

    Next i

End Sub