基於FOR循環索引的單元格引用

Question

這是我的一些代碼：

Dim wbX As Workbook
Dim wbY As Workbook
Set wbX = Application.Workbooks.Open("C:\Converter\aaa.xls")
Set wbY = Application.Workbooks.Open("C:\Converter\bbb.xlsx")

For i = 1 To wbX.Sheets.Count
wbY.Sheets(1).Activate
Range("Y" & i + 2).Select
ActiveSheet.Range("Y" & i + 2).Formula = "=RIGHT(("S" & i + 2); 4)"

問題在於（“ S”＆i + 2）無法識別為單元格-VBA吐出語法錯誤。

Answer 1

也許這個例子可以幫助您：

Option Explicit

Sub test()
    Dim rngC As Range
    For Each rngC In Range("C2:C100")
        rngC.Offset(0, 4) = Right(rngC, 4)
    Next
End Sub

Answer 2

由於將數字連接到字符串，因此表達式"Y" & i + 2不會產生有效的單元格引用。 您必須將數字表達式轉換為字符串：

"Y" & Str(i + 2)

從您的評論中我了解到，作業應寫為：

"=LEFT(S" & Trim(Str(i + 2)) & "; 4)"    ' yields e.g.: =LEFT(S3; 4)

（LEFT函數從字符串中獲取第一個字符。這假設您引用的單元格包含字符串，或者VB首先將值轉換為字符串。在這里，您必須使用Trim(Str(i + 2))因為您正在構造在公式中放入單元格的字符串。）