使用字符串函數將公式轉換為VBA等效項

Question

我想將具有字符串函數的Excel公式轉換為VBA等效項。

有幾行公式。 我將舉兩個例子。

在A列中有一個txt報告的副本。B列至O列對A行進行排序，並使用以下一些公式挑選出片段：

=IF(MID(A6,60,1)="=",MID(A6,52,15),IF(MID(A6,57,1)="=",MID(A6,53,8),C1))

和

=IF(A2="","-",IF(LEFT(A2,1)="1","pg","-"))

這是測試報告的快照。

我想遍歷公式並從A2開始發送到Sheet2（由於標題），不經過復制，粘貼到A1，從B到O的復制列，然后整理出“-”的步驟。

我嘗試記錄宏並估算公式，但無法實現。

Answer 1

Sub convert()
Dim ws As Worksheet, thisRng As Range
Set ws = Sheet1
Set thisRng = Sheet1.Range("B1")' Select the cell to place data into

'   Break up the formula logically first and it becomes easier to convert
'   =IF (MID(A6,60,1)="=",     MID(A6,52,15),    else if IF(MID(A6,57,1)="=",     MID(A6,53,8),        else    C1))
If Mid(ws.Range("A6").Value, 60, 1) = "=" Then
    thisRng = Mid(ws.Range("A6").Value, 52, 15)
    Else
        If (Mid(ws.Range("A6").Value, 57, 1)) = "=" Then
            thisRng = Mid(ws.Range("A6").Value, 53, 8)
        Else
            thisRng.Value = ws.Range("C1").Value
        End If
End If

End Sub