Như mình đã nói ở bài trước của bạn, bạn phải nói rõ máy của bạn đang dùng dấu . hay , để phân cách thập phân. Có vậy mới có giải pháp được nhé.
Bạn có thể tự tìm lấy, và sử dụng nếu công thức không quá phức tạp.
Máy em dùng định dạng Việt Nam, nghĩa là số 12,34 (mười hai phẩy ba tư); 1.000 (Một ngàn). Giờ làm cách nào chỉ cần xử lý 1 lần để cột A ra kết quả thành cột N mà không phải qua các bước trung gian. Em xin cám ơn ạ!
Option Explicit
'Option Base 1
Function ToadoCuoi(ToadoTruoc As Range, GiatriTang As Range)
Dim ArrToadoTruoc, ArrGiatriTang, ArrToadoCuoi
Dim i&
ArrToadoTruoc = Split(ToadoTruoc, ",")
ArrGiatriTang = GiatriTang.Value
ReDim ArrToadoCuoi(1 To 3)
For i = 1 To 3 Step 1
ArrToadoCuoi(i) = CDbl(ArrToadoTruoc(i - 1)) + ArrGiatriTang(1, i)
Next
ToadoCuoi = Join(ArrToadoCuoi, ",")
End FunctionBạn thử tham khảo, hàm tự tạo.
Function KetQua(nguon As String, a As Long, b As Long, c As Long) As String
Dim x:
x = Split(nguon, ",")
KetQua = x(0) + a & "," & x(1) + b & "," & x(2) + c
End Function
Bạn tham khảo code cùi bắp sau (Cho đủ 5 từ)
Sub pingping2828()
Dim i&, Lr&
Dim N1, N11, N12, N13
Dim N2, N21, N22, N23
Dim N3, N31, N32, N33
Dim Arr(), KQ(), S
With Sheet1
Lr = .Cells(10000, 1).End(3).Row
Arr = .Range("A3:A" & Lr).Value
ReDim KQ(1 To UBound(Arr), 1 To 1)
For i = 1 To UBound(Arr)
S = Split(Mid(Arr(i, 1), 1, Len(Arr(i, 1)) - 1), ",")
N1 = (--(S(0)) / 10000 + .[J1]): N11 = Split(N1, ",")(0): N12 = Split(N1, ",")(1): N13 = N11 & "." & N12
N2 = (--S(1)) / 10000 + .[K1]: N21 = Split(N2, ",")(0): N22 = Split(N2, ",")(1): N23 = N21 & "." & N22
N3 = (--S(2)) / 10000 + .[L1]: N31 = Split(N3, ",")(0): N32 = Split(N3, ",")(1): N33 = N31 & "." & N32
KQ(i, 1) = N13 & "," & N23 & "," & N33
Next i
.Range("N3").Resize(10000, 1).ClearContents
.Range("N3").Resize(i - 1, 1) = KQ
End With
MsgBox "Đa xong"
End SubĐây là trang "Hàm và công thức Excel" mà bác phi code cứ vèo vèo, em lưỡng lự mãi mới dám thò cái hàm tự tạo (cũng cùi bắp) ra đấy.
Bạn biết nguồn gốc và nhiệm vụ của từ khóa ":" không?
Nếu dấu phân cách thập phân là dấu "."
=MID(A3,1,11)+RANDBETWEEN(100,900)/100&","&MID(A3,13,12)+RANDBETWEEN(100,900)/100&","&MID(A3,26,8)+RANDBETWEEN(10,110)/100Là tôi thấy các bạn đưa code (hàm UDF) ra tôi mới dám đăng code của mình lên thôi mà. Quả thật là hàm thì tôi dốt, bài này thật sự không biết làm bằng hàm.
Lạ nhỉ? Chạy trên máy tôi thì OK. Không hiểu tại sao nữa?
Có thể khi đó N1 chỉ có 1 phần tử nên = Split(N1,",") (0) thì được. Còn = Split(N1,",") (1) thì sẽ lỗi chứ không liên quan vụ khai báo biến là gì.
Cảm ơn anh đã xem bài và giải thích. Nếu vậy thì code phải thêm dòng : On Error resume next ở ngay sau khi khai báo biến anh nhỉ?
Em mới đoán mò chứ cũng chưa thử anh ạ.
Hình như nếu N1 nó không thấy dấu "," thì phần tử (1) sẽ không tồn tại gây ra lỗi sao á
Mình cũng đoán thế, nhưng chưa thử.
Nhưng mà bác ấy chạy ra kết quả, nhưng tớ tải về chạy thì báo lỗi ấy.
Option Explicit
'Option Base 1
Function ToadoCuoi(ToadoTruoc As Range, GiatriTang As Range, Optional Dauthapphan$ = ".", Optional Daungan$ = ",")
Dim ArrToadoTruoc, ArrGiatriTang, ArrToadoCuoi
Dim i&
If Dauthapphan = "," Then
Daungan = ";"
End If
ArrToadoTruoc = Split(ToadoTruoc, Daungan)
ArrGiatriTang = GiatriTang.Value
ReDim ArrToadoCuoi(1 To 3)
For i = 1 To 3 Step 1
ArrToadoCuoi(i) = Replace(ArrToadoTruoc(i - 1), Dauthapphan, ".") + ArrGiatriTang(1, i)
Next
ToadoCuoi = Replace(Join(ArrToadoCuoi, Daungan), ".", Dauthapphan)
End Function
