ループ内の特定のセル範囲を取得する方法は？

Question

これをセル式で正しく動作させるにはどうすればよいでしょうか？

For lineNum = 1 To UBound(reportArray, 2) 
    With scanSheet 
     .Cells(baseRow, 1) = reportArray(1, lineNum) 
     .Cells(baseRow, 2) = reportArray(2, lineNum) 
     .Cells(baseRow, 3).Formula = "=IF(LEN(B&baseRow)>3,TRIM(LEFT(TRIM(B&baseRow),2)),B&baseRow)" 
     .Cells(baseRow, 4).Formula = "=IF(LEN(B&baseRow)>3,TRIM(RIGHT(TRIM(B&baseRow),2)),B&baseRow)" 
    End With 
    baseRow = baseRow + 1 
Next lineNum 

Answer 1

（ baseRowは、行番号を示す数字の値を有すると仮定して）以下のコードに式のあなたの2行変更

：

.Cells(baseRow, 3).Formula = "=IF(LEN(B" & baseRow & ")>3,TRIM(LEFT(TRIM(B" & baseRow & "),2)),B" & baseRow & ")" 
    .Cells(baseRow, 4).Formula = "=IF(LEN(B" & baseRow & ")>3,TRIM(RIGHT(TRIM(B" & baseRow & "),2)),B" & baseRow & ")" 

注：将来の使用のAに」をヘルプ "文字列。

Dim str As String 
str = "=IF(LEN(B" & baseRow & ")>3,TRIM(LEFT(TRIM(B" & baseRow & "),2)),B" & baseRow & ")" 
Debug.Print str 

その後、あなたはイミディエイトウィンドウに式の文字列を取得します：

=IF(LEN(B2)>3,TRIM(LEFT(TRIM(B2),2)),B2)