사용자 정의 함수를 능가하십시오

Question

이 테이블에는 6K 개 이상의 행이 있습니다. 각 "A"열의 셀 에서 실행되고 "b"의 셀이 복사하는 것보다 굵은 경우, 인 경우 해당 셀을 복사하십시오.

인터넷에서이 함수를 구현했지만 VB를 사용하지 않고 이미 VB 함수 사용 방법을 알고있는 사람이 처음부터 배우는 것보다 Excel을 Excel에서 쉽게 사용할 수 있습니다.

이 코드는 G 열 셀을 숫자로 바꿉니다.

Sub BoldCells() 
Dim TheRange As Range 
Dim TheCell As Range 
Set TheRange = Range("G1", Range("G65536").End(xlUp)) 
For Each TheCell In TheRange 
If TheCell.Font.Bold = True Then 
TheCell = 7 
Else: TheCell = 0 
End If 
Next TheCell 
End Sub 

도움을 주시면 감사하겠습니다.

Answer 1

얼마나 효율적인지 모르겠지만 10 줄 정도의 데이터로 작업하는 것처럼 보입니다.

Sub test() 
    Dim rng As Range, str As String 
    Set rng = Range("b1") 
    str = "" 
    Do 
     If rng.Font.Bold Then 
      str = rng.Value 
     End If 
     rng.Offset(0, -1).Value = str 
     Set rng = rng.Offset(1, 0) 
    Loop Until IsEmpty(rng) 
End Sub