Ghép chỗi ký tự

[Trung Kien Phan]

Anh chị có thể chia sẻ giúp em code VBA để nối 2 dữ liệu từ 2 cột excel có trước như hình vẽ.
anh chị giúp em với ạ.

 

[leonguyenz]

Tham khảo code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A4:B14")) Is Nothing Then
    If Target.Column = 1 Then
        Target.Offset(, 2) = Target.Value
    ElseIf Target.Column = 2 Then
        If Target.Value <> "" Then
            Target.Offset(, 1) = Target.Offset(, 1) & " (" & Target.Value & ")"
        End If
    End If
End If
End Sub

 

[dungba_tiger]

Bạn dùng công thức này xem, mình thấy nếu chỉ ghép 2 cột như vậy thì không cần dùng VBA
=IF(A4="","",IF(B4="",A4,A4&" ("&TEXT(B4,"0.0")&")"))

 

[Trung Kien Phan]

Tham khảo code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A4:B14")) Is Nothing Then
    If Target.Column = 1 Then
        Target.Offset(, 2) = Target.Value
    ElseIf Target.Column = 2 Then
        If Target.Value <> "" Then
            Target.Offset(, 1) = Target.Offset(, 1) & " (" & Target.Value & ")"
        End If
    End If
End If
End Sub

Em đã thử nhưng không ổn lắm bác ạ,

Bài đã được tự động gộp: 2/5/19

Bạn dùng công thức này xem, mình thấy nếu chỉ ghép 2 cột như vậy thì không cần dùng VBA
=IF(A4="","",IF(B4="",A4,A4&" ("&TEXT(B4,"0.0")&")"))

Em có làm trên excel rồi. Nhưng file này em đang muốn cải tiến để chạy tự động trên cùng 1 tổ hợp các file khác.

 

[leonguyenz]

Em đã thử nhưng không ổn lắm bác ạ,

Bài đã được tự động gộp: 2/5/19

Em có làm trên excel rồi. Nhưng file này em đang muốn cải tiến để chạy tự động trên cùng 1 tổ hợp các file khác.

Bạn dùng công thức bài #3 thử xem nhé.
Tôi thấy bạn ghi tự động nên viết code, bài của bạn dùng công thức được rồi.

 

[Trung Kien Phan]

Bạn dùng công thức bài #3 thử xem nhé.
Tôi thấy bạn ghi tự động nên viết code, bài của bạn dùng công thức được rồi.

Dạ. bài #3 em thấy rất ổn và ngắn gọn.
Tuy nhiên, em đang muốn chuyển sang VBA để đồng bộ anh ạ,

 

[Hoàng Nhật Phương]

Dạ. bài #3 em thấy rất ổn và ngắn gọn.
Tuy nhiên, em đang muốn chuyển sang VBA để đồng bộ anh ạ,

Thế này ah bạn

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A4:B14")) Is Nothing Then
        If Target.Column = 1 And Target.Offset(, 1) = "" Then
            Target.Offset(, 2) = Target.Value
        ElseIf Target.Column = 2 And Target.Value <> "" Then
            Target.Offset(, 1) = Target.Offset(, -1) & " (" & Target.Text & ")"
        ElseIf Target.Column = 2 And Target.Value = "" Then
            Target.Offset(, 1) = Target.Offset(, -1)
        ElseIf Target.Column = 1 And Target.Value <> "" Then
            Target.Offset(, 2) = Target.Value & " (" & Target.Offset(, 1).Text & ")"
        End If
    End If
End Sub

 

[binh18091970]

=if(B4="";A4;A4&" ("&B4"&")")---- liệu OK không nhỉ????

 

[be_09]

Anh chị có thể chia sẻ giúp em code VBA để nối 2 dữ liệu từ 2 cột excel có trước như hình vẽ.
anh chị giúp em với ạ.

Dùng thử File, nhập liệu cột A và B xong rồi nhấn nút.
Không nên dùng Worksheet_Change vì nó sẽ làm chậm File.

 

[VetMini]

=if(B4="";A4;A4&" ("&B4"&")")---- liệu OK không nhỉ????

Không.
Đào mồ một bài bảy tám tháng để cho cái công thức trật lất.
1. đếm số dấu nháy đơn xem (nếu là số lẻ thì chắc chắn là công thức sẽ lỗi)
2. sau khi sửa ngữ pháp thì vẫn ra không đúng yêu cầu.

 

[binh18091970]

Mình vừa là thành viên mới, vừa là tập tọe excel tí nên mọi người thông cảm.
Công thức này mình test rôi thấy cũng OK
=IF(B4="";A4;A4&" ("&TEXT(B4;",.0")&")")