Xin giúp code ghép 2 số

[Ba Tê]

Xin cảm ơn bạn.. đã xem file bạn gửi.. xin cảm ơn nhiều.. hiện địa chỉ đúng mình muốn. mình hỏi thêm chút.. có cách nào để cho những địa chỉ đó hoạt động không bạn.. nếu để thế ,mình phải thủ công thêm các dấu = vào nữa mới ok.. xin cảm ơn nhiều.

Bạn chạy thử Sub này cho sheet hiện hành.

Public Sub GhepChuoi()
Dim Rng As Range, J1 As Long, J2 As Long, kCol As Long, xCol As Long
Dim Txt1 As String, Txt2 As String
    Txt1 = Left(Range("A2"), 1)
    Txt2 = Right(Range("A2"), 1)
Set Rng = Range("A1", Range("A1").End(xlToRight))
    xCol = Rng.Columns.Count
    For J1 = 1 To xCol
        If Rng(1, J1) = Txt1 Then
            For J2 = 1 To xCol
                If J2 <> J1 Then
                    If Rng(1, J2) = Txt2 Then
                        kCol = kCol + 1
                        Cells(4, kCol) = "=" & Rng(1, J1).Address(0, 0) & "&" & Rng(1, J2).Address(0, 0)
                    End If
                End If
            Next J2
        End If
    Next J1
Set Rng = Nothing
End Sub

 

[soulambition2020]

Bạn chạy thử Sub này cho sheet hiện hành.

Public Sub GhepChuoi()
Dim Rng As Range, J1 As Long, J2 As Long, kCol As Long, xCol As Long
Dim Txt1 As String, Txt2 As String
    Txt1 = Left(Range("A2"), 1)
    Txt2 = Right(Range("A2"), 1)
Set Rng = Range("A1", Range("A1").End(xlToRight))
    xCol = Rng.Columns.Count
    For J1 = 1 To xCol
        If Rng(1, J1) = Txt1 Then
            For J2 = 1 To xCol
                If J2 <> J1 Then
                    If Rng(1, J2) = Txt2 Then
                        kCol = kCol + 1
                        Cells(4, kCol) = "=" & Rng(1, J1).Address(0, 0) & "&" & Rng(1, J2).Address(0, 0)
                    End If
                End If
            Next J2
        End If
    Next J1
Set Rng = Nothing
End Sub

Xin cảm ơn bạn .. OK rồi .. bạn giúp mình nốt.. muốn mỗi lần dữ liệu thay đổi.. thì sub tự chạy.. và xóa hết kết quả mà chạy lần trước đã có.. tại mình thấy mình thay đổi dữ liệu mới. chạy lại thì kết quả cũ vẫn không bị xóa hết...xin cảm ơn

 

[Ba Tê]

Xin cảm ơn bạn .. OK rồi .. bạn giúp mình nốt.. muốn mỗi lần dữ liệu thay đổi.. thì sub tự chạy.. và xóa hết kết quả mà chạy lần trước đã có.. tại mình thấy mình thay đổi dữ liệu mới. chạy lại thì kết quả cũ vẫn không bị xóa hết...xin cảm ơn

......................................................................................

 

[soulambition2020]

......................................................................................

Xin chân thành cảm ơn nhiều.