giúp Hàm nối chuỗi (5 người xem)

[name0909]

mày mò mãi vẫn chưa ra được...cái hàm nối chuỗi ra văn bản để copy..nội dung trong file đi kèm đó ạ.cảm ơn mọi người đã quan tâm !

 

[gtri]

mày mò mãi vẫn chưa ra được...cái hàm nối chuỗi ra văn bản để copy..nội dung trong file đi kèm đó ạ.cảm ơn mọi người đã quan tâm !

Vào E4
Nhấn ctrl+C
Nhấn alt+E+S+V-->enter-->nhấn esc
công thức trong E4 sẽ bị xóa, chỉ còn lại text
---
Tìm hiểu thêm về copy và paste value là giải quyết được

 

[name0909]

sao không được bạn nhỉ alt+e+s+v nó hiện ra cái bảng dán đặc biệt đúng không ?...mình dùng exl 2010

 

[name0909]

à được rồi...cảm ơn bạn rất nhiều

 

[name0909]

cho mình hỏi ta có thể làm sẵn 1 ô paste đặc biệt như vậy được không...ý là khi có chuỗi nó tự copy và paste đặc biệt ra 1 ô luôn đó

 

[chuot0106]

cho mình hỏi ta có thể làm sẵn 1 ô paste đặc biệt như vậy được không...ý là khi có chuỗi nó tự copy và paste đặc biệt ra 1 ô luôn đó

Dùng VBA được bạn ạ!

 

[name0909]

làm như thế nào hả bạn

 

[langtuchungtinh360]

làm như thế nào hả bạn

không biết đúng ý không
chép code này vô module

Sub CopyPasteValue()
With Selection
    .Copy
    .PasteSpecial Paste:=xlPasteValues
    
End With
Application.CutCopyMode = False
End Sub

nhấn Alt + F8 gán phím tắt cho nó thôi có thể là Ctrl + Shift + V

 

[Ba Tê]

không biết đúng ý không
chép code này vô module

Sub CopyPasteValue()
With Selection
    .Copy
    .PasteSpecial Paste:=xlPasteValues
    
End With
Application.CutCopyMode = False
End Sub

nhấn Alt + F8 gán phím tắt cho nó thôi có thể là Ctrl + Shift + V

Chắc ăn là không đúng rồi.
Tôi nghĩ là tác giả muốn:
- Chọn vùng B2:C4 thì E4= chs123xl tgxj67cl ss7420tl
- Có thể còn muốn chọn vùng trong cột B:C nhiều hoặc ít dòng hơn nữa kìa...
Híc!
Nếu tôi hiểu đúng thì dùng cái này cho sheet1:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Arr(), I As Long, J As Long, Str As String
If Not Intersect(Target, [B2:C6]) Is Nothing Then
    If Target.Cells.Count > 1 Then
        Arr = Selection.Value
        For I = 1 To UBound(Arr, 1)
            For J = 1 To 2
                Str = Str & Arr(I, J)
            Next J
            Str = Str & " "
        Next I
        [E4].Value = Trim(Str)
        Cancel = True
    End If
End If
End Sub

Ví dụ: quét chọn B2:C5 - Right Click - kết quả trong ô E4=chs123xl tgxj67cl ss7420tl sg552st