با سلام
نتیجه این کد ها رو ملاحظه کنید.
کد:
Sub test()Dim s1, s2, s3, s4, s5 As Integer
s1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
s2 = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
s3 = Sheet1.Cells(Sheet1.Rows.Count, "C").End(xlUp).Row
s4 = Sheet1.Cells(Sheet1.Rows.Count, "D").End(xlUp).Row
s5 = Sheet1.Cells(Sheet1.Rows.Count, "E").End(xlUp).Row
Range("A1:e" & s5).Cut Destination:=Range("f1")
Range("j1:j" & Sheet1.Cells(Sheet1.Rows.Count, "J").End(xlUp).Row).Cut Destination:=Range("a1")
Range("i1:i" & Sheet1.Cells(Sheet1.Rows.Count, "i").End(xlUp).Row).Cut Destination:=Range("b1")
Range("h1:h" & Sheet1.Cells(Sheet1.Rows.Count, "h").End(xlUp).Row).Cut Destination:=Range("c1")
Range("g1:g" & Sheet1.Cells(Sheet1.Rows.Count, "g").End(xlUp).Row).Cut Destination:=Range("d1")
Range("f1:f" & Sheet1.Cells(Sheet1.Rows.Count, "f").End(xlUp).Row).Cut Destination:=Range("e1")
End Sub
علاقه مندی ها (Bookmarks)