Bạn thử sử dụng code này nhé:
Sub TachSo()
Dim S As String, Cll As Range
For Each Cll In Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp))
S = S & Cll
Next Cll
S = Replace(S, ".", "")
For i = 1 To Len(S)
Sheet2.Cells(i, 1) = Mid(S, i, 1)
Next i
End Sub
Bạn nên cho mọi thứ lọc được vào mảng, sau đó gán 1 lần vào sheet kết quả, nếu không thì tốc độ sẽ rất chậm (với dữ liệu lớn, mà dùng For theo cách thông thường, e rằng phải đi ngủ 1 giấc mới xong)
Nếu bạn không thích Macro thì làm cách này:
=TEXT(SUBSTITUTE(A1,".",""),REPT("0 ",LEN(SUBSTITUTE(A1,".",""))))
Sub SplitNum()
Dim chuoi, chuoi1, i
chuoi = Join(WorksheetFunction.Transpose(Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp))), "")
chuoi = Replace(chuoi, ".", "")
For i = 1 To Len(chuoi)
chuoi1 = chuoi1 & Mid(chuoi, i, 1) & ";"
Next
Sheet2.[a1].Resize(Len(chuoi)) = WorksheetFunction.Transpose(Split(chuoi1, ";"))
End Sub
Sub TachSo()
Dim S As String, Cll As Range, i, Mg(), Chu
S = Join(WorksheetFunction.Transpose(Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp))), "")
S = Replace(S, ".", "")
ReDim Mg(Len(S), 1)
For i = 1 To Len(S)
Chu = Mid(S, i, 1)
Mg(i, 1) = Chu
Next i
Sheet2.[c1].Resize(Len(S)) = Mg
End SubSub SplitNum()
Dim Text As String, Arr, n As Long, TG As Double
TG = Timer
With Sheet1.Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp))
Text = Join(WorksheetFunction.Transpose(.Cells), "")
Text = Replace(Replace(Text, ".", ""), " ", "")
End With
n = IIf(Len(Text) > 65535, 65535, Len(Text))
Text = Left(Text, n)
Arr = Split(StrConv(Text, 64), Chr(0))
Sheet2.[A1].Resize(n) = WorksheetFunction.Transpose(Arr)
MsgBox Timer - TG
End Sub
hì
Đâu có được anh! Anh sửa thế nó lỗi ngay lập tức ---> Thế mới có chuyện bàn chứ
Cũng không hẳn là SAI BOX, vì ý em muốn bàn về giải pháp tối ưu code thôi (mọi sự luôn hướng đến tính hoàn hảo)
Có cách thì tôi mới nói chứ... Ẹc... Ẹc...
Có code "củ chuối" này thấy nó làm được, không biết có đúng nguyên tắc không.
Sub SplitNum()
Dim Text As String, Arr, n As Long, m As Byte, TG As Double
TG = Timer
With Sheet1.Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp))
Text = Join(WorksheetFunction.Transpose(.Cells), "")
Text = Replace(Replace(Text, ".", ""), " ", "")
End With
m = IIf(Len(Text) > 65535, Mid(Text, 65536, 1), 0)
n = IIf(Len(Text) > 65535, 65535, Len(Text))
Text = Left(Text, n)
Arr = Split(StrConv(Text, 64), Chr(0))
Sheet2.[A1:A65536].ClearContents
Sheet2.[A1].Resize(n) = WorksheetFunction.Transpose(Arr)
If m > 0 Then
Sheet2.[A65536] = m
End If
MsgBox Timer - TG
End SubThật ra nếu hiểu hàm Split(StrConv(Text, 64), Chr(0)) thì sẽ dễ dàng tìm ra giải pháp ---> Nó tạo ra 1 mảng mà phần tử cuối cùng là rổng ---> Khi ta có chuổi có độ dài 65536 ký tự thì qua hàm trên sẽ cho kết quả 65567 phần tử (có thể thí nghiệm bằng lệnh MsgBox UBound(Arr) )
Sub SplitNum()
Dim Text As String, Arr, n As Long, TG As Double
TG = Timer
With Sheet1.Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp))
Text = Join(WorksheetFunction.Transpose(.Cells), "")
Text = Replace(Replace(Text, ".", ""), " ", "")
End With
n = IIf(Len(Text) > Cells.Rows.Count, Cells.Rows.Count, Len(Text))
Text = Left(Text, n)
Arr = Split(StrConv(Text, 64), Chr(0))
MsgBox UBound(Arr)
ReDim Preserve Arr(n - 1)
Sheet2.[A1].Resize(n) = WorksheetFunction.Transpose(Arr)
MsgBox Timer - TG
End Subthì tôi thêm tý vào nè
Sub SplitNum()
Dim Text As String, Arr, n As Long, TG As Double
TG = Timer
With Sheet1.Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp))
Text = Join(WorksheetFunction.Transpose(.Cells), "")
Text = Replace(Replace(Text, ".", ""), " ", "")
End With
n = IIf(Len(Text) > 65535, 65535, Len(Text))
Text = Left(Text, n)
Arr = Split(StrConv(Text, 64), Chr(0))
Sheet2.[A1].Resize(n) = WorksheetFunction.Transpose(Arr)
If n > 65535 Then
Sheet2.[A65536] = Left(n, 1)
End If
MsgBox Timer - TG
End SubVì đoạn code trên:
Công thức Bạn Ba Tê viết lấy ra kết quả đúng nhưng ở đây mình chỉ đính chính lại chút xíu là cột C và cột D là không có. Mình chỉ giải thích thôi chứ
Đổi công thức:
=IF(AND(--MID(A1;2;2)>=70;--MID(A1;2;2)<=75);"_"&VLOOKUP(--MID(A1;2;2);$C$2:$D$7;2;0) & --MID(A1;5;2)&"%"& MID(A1;7;3);A1)=IF(AND(--MID(A1;2;2)>=70;--MID(A1;2;2)<=75);"_" & LOOKUP(--MID(A1;2;2);{70;71;72;73;74;75};{"P";"Q";"R";"S";"T";"U"}) & --MID(A1;5;2)&"%"& MID(A1;7;3);A1)
