Sub ABC()
Dim sArr(), Res(), i&, j&, iR&, Arr, K&
With Sheet1
iR = .Range("A" & Rows.Count).End(3).Row
sArr = .Range("A3:B" & iR).Value
End With
ReDim Res(1 To 10000, 1 To 2)
For i = 1 To UBound(sArr, 1)
Arr = Split(sArr(i, 2), ",")
For j = 0 To UBound(Arr)
K = K + 1
Res(K, 1) = sArr(i, 1)
Res(K, 2) = Trim(Arr(j))
Next
Next
With Sheet2
.Range("C:D").ClearContents
If K Then .Range("c2").Resize(K, 2).Value = Res
End With
End SubDạ. em theo quy luật là : Trái-phải-lên- xuống = 1-2-3-4 ạ
Các tác giả phần mềm khác nhau lại đưa ra các trật tự khác nhau làm người dùng rối, không nhớ trật tự nào để dùng nếu không mất công search hoặc thử. Như trong css thì 4 chỉ số lần lượt chạy theo kim đồng hồ bắt đầu từ Top - Right - Bottom - Left...
Hihi. Thực ra là em học vẹt thôi. chứ cũng chẳng theo cái gì gọi là định nghĩa cả. tại em cứ đọc trái phải lên xuống nó tiện miệng. và số nó tăng dần.nên chắc quen đọc thế. cũng ít thấy người dùng cái số kiểu này. có vài người trên diễn đàn cũng dùng cái này.viết số thế sẽ bớt được 1 xíu thời gian. hìhi
vâng. nếu không bận mải gì. thì có lẽ viết rõ ràng là xlup, xldown... là nhìn dễ hiểu nhất ạ
Khi nhìn vào tên của hằng số thôi là đã có chút khái niệm, ý nghĩa của hằng số rồi. Trong vd. system Windows các vd. Windows Message WM_*** có rất nhiều có cùng giá trị. Nếu dùng giá trị thì nhìn vào con số chả có khái niệm gì cả. Con số chỉ là con số. Nhưng nhìn vào vd. WM_CLOSE là tôi đã có chút khái niệm rồi. Những code toàn con số, hàng chục hàng trăm con số, đọc rất mệt.
Dạ. Cháu cũng biết là nên viết rõ ràng ra là điều tốt nhất. Nhiều khi theo thói quen. Và thêm chút lười. Sẽ cố gắng sửa ạ. Cám ơn chú
Mã nhóm:
