View attachment 195689
Chào các bác! e có một vấn đề như thế này! Em có một cột dữ liệu như màu vàng, giờ em muốn chuyển dữ liệu sang ô màu xanh theo thứ tự giống như hình!
Em có viết code như thế này!
Sub dichuyen()
Dim vungchuyen As Range
Dim obatdau As Range
Dim tang As Integer
Dim mang As Variant
Dim i, j As Long
Dim c As Long
Set vungchuyen = Selection
mang = vungchuyen.Value
Set obatdau = Sheet6.Range(InputBox("nhap o bat dau"))
c = 0
i = 0
Do
j = 0
Do
obatdau.Offset(j * -1, i).Value = i + j + 2 * c
j = j + 1
Loop Until j = 3 Or i + j + 2 * c > UBound(mang) - 1
c = c + 1
i = i + 1
Loop While i + j + 2 * c <= UBound(mang) + 2
End Sub
thì đã đi tới đây
View attachment 195690
giờ có số thứ tự hết rồi mà khi em đưa số thứ tự đó vô mảng nó lại báo lỗi
View attachment 195691
Em không biết nó sai chỗ nào mong các bác chỉ giáo!