RANGE 함수를 확장한다.
그러나 Range("M01N_[number,O,W]")처럼 열을 추출하여 테이블을 만들 수 없습니다.
Range("M01N_[번호]")와 같은 열이나 Range("M01N_[[번호]:[O]]")와 같이 열 순서가 연속해야 합니다.
그래서 함수 Range_로 재정의했습니다.
Function Range_(R, Optional S = "")
On Error Resume Next
If TS_(R) Then
If InStr(R, ",") > 0 And InStr(R, "[") > 0 And InStr(R, "]") = Len(R) Then
A = Split(Left(R, Len(R) - 1), "[")
B = Split(A(1), ",")
A = A(0)
M = Range(A).Rows.Count
N = UBound(B) + 1
ReDim S(0 To M, 1 To N)
For J = 1 To N
S(0, J) = B(J - 1)
R = CC(A, "[", B(J - 1), "]")
For I = 1 To M
S(I, J) = DI(R, I)
Next I
Next J
Else
S = Range(R)
End If
Else
S = R
End If
Range_ = S
End Function
(A1) =Range_("M01N_[번호,O,W]")의 결과는 아래와 같다. 서식은 적당하게 바꾸고 있습니다.
Reference
이 문제에 관하여(RANGE 함수를 확장한다.), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/matumoto_onga/items/80268c4f67d29e14d3c3텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)