VBA 함수를 만들었습니다.
Function LOJA(x As String)
Dim a As Integer
Dim f As String
Dim f2 As String
Dim f3 As String
a = InStr(1, x, "-")
f = Right(x, Len(x) - a)
a = InStr(1, f, "-")
f2 = Right(f, Len(f) - a)
a = InStr(1, f2, "-")
f3 = Left(f2, a - 2)
LOJA = f3
End Function
그리고 그것이 정확히 같았던 것처럼 작동하고 있었고, 필자가 필요로했던 모든 300k 라인에서 기능을 실행하기까지했습니다.
하지만 점심 식사 전에 Excel을 저장하고 닫았습니다. 돌아 왔을 때 함수가 계속이 오류를 표시하고 작은 함수도 다음과 같은 오류를줍니다.
Function Center(x As String)
Dim a As Integer
Dim f As String
a = InStr(1, x, "-")
f = Right(x, Len(x) - a)
Center = f
End Function
어떤 생각이 들었습니까? 이 문제를 해결하기 위해 수행 할 수있는 작업은 무엇입니까?
미리 감사드립니다.