dạ e muốn bỏ qua 2 bước chọn này ạ. chọn mặc định "Please select a range" là ô "A1" và "Split to (single cell):" là ô "A2"
.Cái kia thì cứ có cái nào là input thì bạn thay dữ liệu vào.
Ý mình là đưa ví dụ lên mình code lại bằng code khác ấy.
.Cái kia thì cứ có cái nào là input thì bạn thay dữ liệu vào.[/QUOTE]
. a giúp e với
là em muốn chia các giá trị ở 1 ô được ngăn cách bằng dấu phẩy ở ô A1 thành các dòng bắt đầu từ ô A2 đến A... v.v.. và khi chạy code gán luôn A1 là input và A2 là ô bắt đầu ấy ạ .Ý mình là đưa ví dụ lên mình code lại bằng code khác ấy.
. a giúp e với[/QUOTE]
Sub SplitAll()
Dim T, s As String
s = Sheet1.Range("A1").Value
T = Split(s, ",")
Sheet1.Range("A2").Resize(UBound(T) + 1, 1).Value = WorksheetFunction.Transpose(T)
End Sublà em muốn chia các giá trị ở 1 ô được ngăn cách bằng dấu phẩy ở ô A1 thành các dòng bắt đầu từ ô A2 đến A... v.v.. và khi chạy code gán luôn A1 là input và A2 là ô bắt đầu ấy ạ .Ý mình là đưa ví dụ lên mình code lại bằng code khác ấy.
. a giúp e với[/QUOTE]
Sub SplitAll()
Dim Res As Variant, iStr As String
iStr = Range("A1").Value
If Len(iStr) > 0 Then
Res = Application.Transpose(Split(iStr, ","))
Range("A2").Resize(UBound(Res) + 1) = Res
End If
End SubĐây bạn xem code.là em muốn chia các giá trị ở 1 ô được ngăn cách bằng dấu phẩy ở ô A1 thành các dòng bắt đầu từ ô A2 đến A... v.v.. và khi chạy code gán luôn A1 là input và A2 là ô bắt đầu ấy ạ .
Sub SplitAll()
Dim T, s As String
s = Sheet1.Range("A1").Value
T = Split(s, ",")
Sheet1.Range("A2").Resize(UBound(T) + 1, 1).Value = WorksheetFunction.Transpose(T)
End Sublà em muốn chia các giá trị ở 1 ô được ngăn cách bằng dấu phẩy ở ô A1 thành các dòng bắt đầu từ ô A2 đến A... v.v.. và khi chạy code gán luôn A1 là input và A2 là ô bắt đầu ấy ạ .
Sub SplitAll()
Dim Res As Variant, iStr As String
iStr = Range("A1").Value
If Len(iStr) > 0 Then
Res = Application.Transpose(Split(iStr, ","))
Range("A2").Resize(UBound(Res) + 1) = Res
End If
End Sub
