مرتب کردن سلولها

m = 1

n = 1

For i = 1 To 100

    For j = 1 To 100

        If (Sheet1.Cells(i, j) <> "") Then

            Sheet2.Cells(m, n) = Sheet1.Cells(i, j)

            n = n + 1

        End If

    Next j

    n = 1

    m = m + 1

Next i

بین خانه ها فاصله دارد فاصله ها رو از بین میبرد

دریافت