>source

나는 다음과 같은 code를 가지고 있으며, For 루프 내의 모든 부분에서 "인식되지 않은 커서에서 식별자"를 얻고 있습니다.

Sub Finalize_Macro()
'
' Finalize all data on the Offer Data worksheet
'
Dim DSheet As Worksheet
Dim PSheet As Worksheet
Dim LastRow As Long
Dim ValCol As Long
Dim DayCol As Long
Dim i As Integer
Set DSheet= Worksheets("Offer Data")
Set PSheet= Worksheets("PivotTable")
LastRow= DSheet.Cells(Rows.Count, 1).End(xlUp).Row
ValCol= PSheet.Cells(2, Columns.Count).End(xlToLeft).Column -1
DayCol= PSheet.Cells(2, Columns.Count).End(xlToLeft).Column
DSheet.Select
[E1:I1]= [{"Redemption Value", "Redemption Days", "Theo", "Actual", "Rated Days"}]
For i= 2 To LastRow
    Cells(i, 5).Formula= "=IFERROR(XLOOKUP(A" &
 i &
 ",PivotTable!(A:A),PivotTable!.Columns(" &
 ValCol &
 ")),0)"
    Cells(i, 6).Formula= "=IFERROR(XLOOKUP(A" &
 i &
 ",PivotTable!(A:A),PivotTable!.Columns(" &
 DayCol &
 ")),0)"
    Cells(i, 7).Formula= "=IFERROR(XLOOKUP(A" &
 i &
 ",'Big Query Data'!(B:B),'Big Query Data'!(C:C)),0)"
    Cells(i, 8).Formula= "=IFERROR(XLOOKUP(A" &
 i &
 ",'Big Query Data'!(B:B),'Big Query Data'!(D:D)),0)"
    Cells(i, 9).Formula= "=IFERROR(XLOOKUP(A" &
 i &
 ",'Big Query Data'!(B:B),'Big Query Data'!(E:E)),0)"
Next
   Application.DisplayAlerts= True
   Application.ScreenUpdating= True
End Sub

누군가가 왜 작동하지 않는지 조언을 도울 수 있다면, 나는 그것을 크게 감사 할 것입니다!

Valcol 및 Daycol은 다음과 같아야합니다 : psheet.column (valcol). 공식의 Address.

Scott Craner2021-09-02 09:48:07

.formula는 .formula2가 필요하며 수식을 삽입하는 루프가 필요하지 않습니다.

BigBen2021-09-02 09:48:07

컬럼 문자 주위의 가방은 제거해야합니다. '큰 쿼리 데이터'! B : B.

BigBen2021-09-02 09:48:07

Scott의 제안을받은 후 처음 두 개 수식에서 .Columns를 제거하십시오.

BigBen2021-09-02 09:48:07
  • 이전 javascript : 가져 오기없이 JSDoc에서 내 보낸 개체를 참조하는 방법은 무엇입니까?
  • 다음 flutter : 펄럭이있는 스낵바에 대한 간단한 테스트를 작성하는 방법?