모든 셀에 대한 Excel VBA 루프 기능

안녕하세요 저는 생년월일까지 개인 신원 번호를 추출하는 기능이 있습니다. 그러나 함수는 현재 셀에서만 작동합니다. 워크 시트의 A2에서 모든 셀을 실행하는 코드를 수정하는 방법. 모든 셀에 대한 Excel VBA 루프 기능

- 셀 코드

=IF(VALUE(MID(A2;3;2))>20;"20"&LEWY(A2;2);"19"&LEWY(A2;2))&MOD(MID(A2;3;2);20)&MID(A2;5;2)

출처

2017-03-20 kowal666

이 기능을 다른 셀에 복사하여 붙여 넣거나 아래로 드래그하십시오. 상대 참조를 사용하므로 A 열의 모든 셀에서 작동해야합니다. –

난 당신이 입력이 열 A의 셀에 아래 B2에서 모든 방법을 수식을 복사하려고 생각합니다. 나는 이것이 당신이 찾고있는 것을해야한다고 생각합니다. 시트 1에 있다고 가정합니다. 코드를 변경할 수없는 경우입니다.

'Defines the parameter to count the rows being used in column A 
    lRow = Sheet1.Range("A2").End(xlDown).Row 

'Creates the formula for column B 
Sheet1.Range("B2") = "=IF(VALUE(MID(A2;3;2))>20;""20""&LEWY(A2;2);""19""&LEWY(A2;2))&MOD(MID(A2;3;2);20)&MID(A2;5;2)" 

'Copies and paste the formulas down to the last rows for column B in Sheet 1 
    Sheet1.Range("B2").Copy 
    Sheet1.Range("B3:B" & lRow).PasteSpecial Paste:=xlPasteFormulas

출처

2017-03-20 14:04:23 BWMustang13

모든 셀에 대한 Excel VBA 루프 기능

답변

관련 문제