Cách nhập số thứ tự nhanh nhất

[vieclamtrenmang]

em muốn đánh số thứ tự cho từng dòng từ 2000 đến 60.000 thì làm thế nào để nhanh nhất vậy ?

 

[chuot0106]

em muốn đánh số thứ tự cho từng dòng từ 2000 đến 60.000 thì làm thế nào để nhanh nhất vậy ?

Bạn dùng vba. Đưa file nên tôi giúp!

 

[trung984]

em muốn đánh số thứ tự cho từng dòng từ 2000 đến 60.000 thì làm thế nào để nhanh nhất vậy ?

Nhấn phím Shift kéo thanh cuộn đến 20.000 gõ 1 Endter 2, Copy 1 và 2, chọn 1 và 2 xong nhấn giữ phím Shift kéo thanh cuộn đến 60.000 chọn và click phải chuột chọn Paste, bây giờ bạn muốn đánh số thứ tự bắt đầu là mấy vào 1 và 2 là tùy ý, chọn 2 số TT bạn vừa gõ và rê vào cạnh phải click đúp chuột là xong.

 

[ptm0412]

Cái gì mà phải VBA dữ vậy.
Gõ 1 vào ô đâu tiên
Excel 2003 vào Data - Fill - Fill series, Excel 2010 vào Home - Edit - Fill Series
Step 1, stop 60000, chọn Column, chọn linear, OK

 

[chuot0106]

Cái gì mà phải VBA dữ vậy.
Gõ 1 vào ô đâu tiên
Excel 2003 vào Data - Fill - Fill series, Excel 2010 vào Home - Edit - Fill Series
Step 1, stop 60000, chọn Column, chọn linear, OK

Dạ, tại từ ngày nghiên cứu VBA giờ thấy tình huống nào cũng chỉ nghĩ cách giải quyết bằng VBA Thầy ạ!

 

[chuot0106]

Gõ 1 vào ô đâu tiên
Excel 2003 vào Data - Fill - Fill series
Step 1, stop 60000, chọn Column, chọn linear, OK

Chỗ màu đỏ có lẽ thầy viết nhầm, phải là: Edit - Fill - Fill series ạ!

em muốn đánh số thứ tự cho từng dòng từ 2000 đến 60.000 thì làm thế nào để nhanh nhất vậy ?

Giả sử bạn muốn đánh số thứ tự từ ô A2000 đến ô A60000 chẳng hạn, code sẽ như sau:

Sub Danh_STT()
Dim i As Double
For i = 2000 To 60000
Cells(i, "A") = i
Next i
End Sub

Bạn tùy biến cho phù hợp nhé!
Chỗ màu đỏ đó là đánh STT cho cột A, bạn muốn đánh cho cột B thì thay "A" thành "B",...

 

[ptm0412]

Vụ 2003 là tôi nhớ nhầm. Tuy nhiên dùng công cụ có sẵn (nếu phù hợp) bao giờ cũng nhanh hơn VBA, nhất là vòng lặp đánh trực tiếp lên từng ô. Nếu dùng VBA để đánh số thứ tự (trong 1 thủ tục nào đó, chứ không phải viết riêng 1 thủ tục chỉ để đánh số thứ tự) thì chỉ 1 câu lệnh:

Range("A2:A60000").value = Evaluate("=row(R:R)")

Tạm có thể so sánh với Fill series khi nhấn nút OK

 

[chuot0106]

Vụ 2003 là tôi nhớ nhầm. Tuy nhiên dùng công cụ có sẵn (nếu phù hợp) bao giờ cũng nhanh hơn VBA, nhất là vòng lặp đánh trực tiếp lên từng ô. Nếu dùng VBA để đánh số thứ tự (trong 1 thủ tục nào đó, chứ không phải viết riêng 1 thủ tục chỉ để đánh số thứ tự) thì chỉ 1 câu lệnh:

Range("A2:A60000").value = Evaluate("=row(R:R)")

Tạm có thể so sánh với Fill series khi nhấn nút OK

Thủ tục của thầy đúng là nhanh hơn của em rất nhiều. Nhưng thầy ơi nếu vẫn sử dụng thủ tục của thầy nhưng muốn đánh STT bắt đầu từ số 2000 thì phải sửa như thế nào ạ? Hoặc có thể dùng thủ tục nào khác không? Em dùng lệnh For nên chậm thật.

 

[ptm0412]

Thủ tục của thầy đúng là nhanh hơn của em rất nhiều. Nhưng thầy ơi nếu vẫn sử dụng thủ tục của thầy nhưng muốn đánh STT bắt đầu từ số 2000 thì phải sửa như thế nào ạ? Hoặc có thể dùng thủ tục nào khác không? Em dùng lệnh For nên chậm thật.

Làm bài toán cộng, 1 cộng mấy bằng 2000?

 

[chuot0106]

Làm bài toán cộng, 1 cộng mấy bằng 2000?

Dạ, cộng 1999 ạ!, đáp án:

Sub Danh_STT()
Range("A2:A60000").Value = Evaluate("=row(R:R)+1999")
End Sub

Cảm ơn Thầy rất nhiều ạ!