Sub danboquarowsan()
Dim Rng(), i, c
Rng = Range("a1:a10").Value
For i = 1 To UBound(Rng)
If Rows(i + 10 + c).Hidden = False Then
Cells(i + 10 + c, 1) = Rng(i, 1)
Else
Do
c = c + 1
Loop Until Rows(i + 10 + c).Hidden = False
Cells(i + 10 + c, 1) = Rng(i, 1)
End If
Next
End Sub
Chào mừng ghé thăm Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng (https://xaydung360.vn/diendan/) | Powered by Discuz! X3.2 |