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 실행 상자가 열리고 작업할 객체를 선택하여 코드를 입력하여 실행하면 됩니다.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
시간 형식 변환, "2018-07-12T07:45:0.000Z"와 유사 = > 2018-07-11 15:45:29정의: 호출 tip: 제가 vue에서 사용한 것도 시간 뒤에 추가할 수 있습니다.split(‘T’)[0]...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.