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

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

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

دریافت
حجم: 19.8 کیلوبایت

کوچک کردن عدد

Dim i As Double

i = 0

For j = 1 To 100

    i = Cells(j, 1) / 1000000

    i = Round(i, 0)

    Sheet2.Cells(j, 1) = i

Next j

جستجوی چندتایی

قسمتهایی که علامت زده شده اند را به تعداد دلخواه تکرار کن

j1 = 0
j2 = 0
j3 = 0
For i = 1 To 10000

    If (Cells(i, 1) = 175) Then
        j1 = j1 + 1
        Cells(j1, 8) = Cells(i, 1)
        Cells(j1, 9) = Cells(i, 2)
    End If
   
    If (Cells(i, 1) = 176) Then
        j2 = j2 + 1
        Cells(j2, 10) = Cells(i, 1)
        Cells(j2, 11) = Cells(i, 2)
    End If
   
    If (Cells(i, 1) = 177) Then
        j3 = j3 + 1
        Cells(j3, 12) = Cells(i, 1)
        Cells(j3, 13) = Cells(i, 2)
    End If
   
Next i

چند عدد رو سرچ میکند و نمایش میدهد

دریافت
حجم: 16.6 کیلوبایت

جستجو

پرانتز خط  5و6 به جای اخر اول خوردند
j = 0
For i = 1 To 10000
    If (Cells(i, 1) = 175) Then
        j = j + 1
        Cells(j, 8) = Cells(i, 1)
        Cells(j, 9) = Cells(i, 2)
    End If
Next i