Ghép cột số thành 1 ô chuỗi số.

Liên hệ QC

mrphuc01

Thành viên mới
Tham gia
29/10/13
Bài viết
9
Được thích
0
Nghề nghiệp
Cán Bộ Địa Chính
Mình muôn ghép 1 cột số ví dụ từ A1 đến A10 các số từ 100 đến 110 thành 1 ô là :100,101,102.......,110. Ai biết giúp mình với nhé, mình cảm ơn nhiều, mình gửi kèm file.}}}}}
 

File đính kèm

  • Mau.xls
    17.5 KB · Đọc: 21
Lần chỉnh sửa cuối:
Mình muôn ghép 1 cột số ví dụ từ A1 đến A10 các số từ 100 đến 110 thành 1 ô là :100,101,102.......,110. Ai biết giúp mình với nhé, mình cảm ơn nhiều, mình gửi kèm file.}}}}}

Mình làm bằng hàm tự tạo, bạn thử xem sao.
 

File đính kèm

  • Mau (1).xls
    36.5 KB · Đọc: 39
Còn cách nào khác không bác. em không biết cách tạo hàm. Có bác nào còn cách nào giúp em với
 
Còn cách nào khác không bác. em không biết cách tạo hàm. Có bác nào còn cách nào giúp em với

Trường hợp này không có hàm excel nào có thể đáp ứng yêu cầu của bạn ( nếu dùng hàm concatenate -> bạn phải liệt kê hết các ô trong cột A <--- cách này không khả thi)
--> phải dùng hàm tự tạo để đáp ứng nhu cầu này :

Trong các hàm tự tạo mình biết về vấn đề này , thi mình thấy hàm jointText của anh Ndu có khả năng tùy biến cao nhất !

code như sau :
Mã:
Function JoinText(ByVal Delimiter As String, ByVal IgnoreBlanks As Boolean, ParamArray Arrays()) As String 
  Dim aTmp, Arr(), Item, tmp As String
  Dim i As Long, n As Long
  On Error Resume Next
  For i = LBound(Arrays) To UBound(Arrays)
    aTmp = Arrays(i)
    If Not IsArray(aTmp) Then aTmp = Array(aTmp)
    For Each Item In aTmp
      tmp = IIf(TypeName(Item) = "Error", "", Trim(CStr(Item)))
      If IgnoreBlanks = False Or Len(tmp) Then
        n = n + 1
        ReDim Preserve Arr(1 To n)
        Arr(n) = tmp
      End If
    Next
  Next
  If n Then JoinText = Join(Arr, Delimiter)
End Function
.

Áp dụng : tại ô B1 bạn gõ công thức : =JoinText(",",TRUE,A1:A100)
 
Còn cách nào khác không bác. em không biết cách tạo hàm. Có bác nào còn cách nào giúp em với
Không biết cách tạo hàm?
Bấm phím chắc bạn biết, làm từ bước (tào lao) như vầy nghe:
1/ Từ một ô nào đó, gõ dấu =
2/ Tô chọn, ví dụ A1:A10, ấn phím F9, bỏ dấu = phía trước. Enter
3/ Bỏ dấu { và } nếu cần .
 
cach cua Ba Tê rất hay, có thể đổi dấu'' ;'' thành dấu'' ,'' bằng Find cảm ơn bạn nhiều.
 
Web KT
Back
Top Bottom