Code Nối 1 chuỗi cố định với 1 ô

[TeamVi]

Xin chào các Anh (Chị)
Em có 1 vướng mắc rất mong các Anh(Chị) giúp đỡ
Em muốn nối chuỗi từ 1 chuỗi cố định từ Sheet1 với 1 chuỗi nằm vùng Sheet2. Do vùng dữ liệu chứa từ Sheet2 biến động (chèn thên dòng vào) vì vậy Em không thể lấy chết số được. Mà em tập viết Code dưới đây thi báo lỗi

Sub Macro1()
    Dim Str As String, I As Long
Const Nguon = "'Sheet2'!"
With Sheet1
    Str = Range("B1")
    For I = 1 To 6
        .Range("C" & I + 1).Formula = "=" & Str & Nguon & _
                Replace(Sheet2.Range("A" & I).Address, "$", "")
    Next I
End With
End Sub

Em có đính kèm file
Kính mong các Anh Chị giúp đỡ

 

[giaiphap]

Xin chào các Anh (Chị)
Em có 1 vướng mắc rất mong các Anh(Chị) giúp đỡ
Em muốn nối chuỗi từ 1 chuỗi cố định từ Sheet1 với 1 chuỗi nằm vùng Sheet2. Do vùng dữ liệu chứa từ Sheet2 biến động (chèn thên dòng vào) vì vậy Em không thể lấy chết số được. Mà em tập viết Code dưới đây thi báo lỗi

Sub Macro1()
    Dim Str As String, I As Long
Const Nguon = "'Sheet2'!"
With Sheet1
    Str = Range("B1")
    For I = 1 To 6
        .Range("C" & I + 1).Formula = "=" & Str & Nguon & _
                Replace(Sheet2.Range("A" & I).Address, "$", "")
    Next I
End With
End Sub

Em có đính kèm file
Kính mong các Anh Chị giúp đỡ

Thử sửa thế này xem sao.

Sub Macro1()
    Dim Str As String, I As Long, Nguon As String
    Nguon = "'Sheet2'!R"
    Str = "=R1C2&"
    With Sheet1
        For I = 1 To 6
            .Range("C" & I + 1).FormulaR1C1 = Str & Nguon & I & "C1"
        Next I
    End With
End Sub

 

[TeamVi]

Thử sửa thế này xem sao.

Sub Macro1()
    Dim Str As String, I As Long, Nguon As String
    Nguon = "'Sheet2'!R"
    Str = "=R1C2&"
    With Sheet1
        For I = 1 To 6
            .Range("C" & I + 1).FormulaR1C1 = Str & Nguon & I & "C1"
        Next I
    End With
End Sub

Cám ơn Anh nhiều ạ. Nếu nó là 1 chuỗi cố định mà không năm trên ô (Không có ô B1) thì Code lỗi Anh ạ

 

[giaiphap]

Cám ơn Anh nhiều ạ. Nếu nó là 1 chuỗi cố định mà không năm trên ô (Không có ô B1) thì Code lỗi Anh ạ

Sửa chổ.

Str = "=R1C2&"

thành

Str = "=""Muốn nhập gì thì nhập"" &"

Tôi thấy yêu cầu của bạn chỉ cần dùng công thức thông thường là được, không cần code gì cả. Ô C2 của bạn gõ công thức như sau:

=$B$1 & INDIRECT("'Sheet2'!A" & ROW(A1))

Fiil công thức cho các ô phía dưới.