VB를 사용하여 Excel 작업(에세이 로깅)

2147 단어 에세이

수요: excel 표의 난잡한 데이터를 지정합니다.


eg: 어떤 열의 어떤 줄의 데이터는 100위안을 채우고 20위안을 감액합니다. 데이터의 편의를 위해 우리는 20위안만 보류하면 excel을 할 수 있습니다. 저는 익숙하지 않습니다. 마우스 클릭과 함수를 통해 이 수요를 해결할 수 있을지 모르겠지만 VB를 통해 우리는 이 문제를 효율적으로 해결할 수 있습니다.

나 자신은 VB를 할 줄 몰라서 인터넷 자원을 통해 대조적으로 한 토막을 썼다.주석에 문제가 있을 수 있습니다.

Private Sub RegExp_Replace()
    Dim RegExp As Object
    Dim SearchRange As Range, Cell As Range
    ' 
    Set RegExp = CreateObject("vbscript.regexp")
    RegExp.Pattern = " .* "
    ' 
    Set SearchRange = ActiveSheet.Range("R2:R10001")
    ' 
    For Each Cell In SearchRange
        ' 
        Set Matches = RegExp.Execute(Cell.Value)
        ' , 
        If Matches.Count >= 1 Then
            Set Match = Matches(0)
            Cell.Value = RegExp.Replace(Cell.Value, "")
        End If
    Next
End Sub

Excel 열기 Alt + F11 키를 누르면 VB 실행 상자가 열리고 작업할 객체를 선택하여 코드를 입력하여 실행하면 됩니다.

좋은 웹페이지 즐겨찾기