excel vba 버그 제거
1659 단어 code
Sub ()
Dim loo As Range
Dim bh As String
bh = [b7].Value
Dim yy As Range
Dim bhl As Range
Set bhl = Range("b:b")
Dim fist As String
Set loo = Range("b7")
Do
If Len(loo) > 0 And loo.Value <> 0 Then
Set yy = bhl.Find(what:=loo.Value, lookat:=xlWhole)
fist = yy.Address
Do
If yy.Address <> loo.Address Then
If yy.Offset(0, 4).Value = loo.Offset(0, 4).Value Then
loo.Offset(0, 3).Value = yy.Offset(0, 3).Value + loo.Offset(0, 3).Value
loo.Offset(0, 5).Value = yy.Offset(0, 5).Value + loo.Offset(0, 5).Value
loo.Interior.ColorIndex = 9
yy.Interior.ColorIndex = 6
yy.Value = 0
yy.Offset(0, 3).Value = 0
yy.Offset(0, 5).Value = 0
End If
End If
Set yy = bhl.FindNext(yy)
Loop While yy.Address <> fist
End If
Set loo = loo.Offset(1, 0)
Loop While loo.Address <> Cells(Range("b:b").Rows.Count, 2).End(xlUp).Address
End Sub
모두 무수한 실수를 저질렀고,
몇 가지 문제를 해결했다
1\셀이 비어 있는 경우len(cell)>0
2\findnext () 함수는 자신을 찾을 수 없고, 첫 번째는 자신을 묵인할 수 없습니다.이 코드는 아직 최적화될 가능성이 있다.처음부터 시작할 수 없다.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
소스 코드가 포함된 Python 프로젝트텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
