Excel 2013 - Điền số từ 2000 - 65000 mà không cần sử dụng kéo để điền vào phương thức chuột

Tôi cần điền các số từ 2000 đến 65000 trong Excel 2013 và sử dụng thao tác điền và kéo là một quá trình rất dài.

Có một cách khác để làm điều này?

Nhập "2000" vào A1. , Nhập công thức A2 = A1 + 1 và sao chép công thức này sang A3 cho đến A65000 bằng cách trước tiên chọn A3 sau đó giữ shift và cuộn bằng chuột đến A65000 và nhấp vào ô, sau đó nhả phím. Dán công thức. Điều này sẽ cung cấp cho bạn những gì bạn muốn.

Nếu bạn muốn chuyển đổi công thức thành các giá trị sau đó, hãy chọn lại tất cả bản sao, dán làm giá trị.

1. Đặt ô đầu tiên cho giá trị bắt đầu của bạn.
2. Đặt ô bên dưới nó thành CellA Trên + 1.
3. Nhấn vào đây để chọn ô thứ hai.
4. Cuộn xuống và shift bấm vào ô cuối.
5. Ctrl-D (Điền, Xuống)
6. Ctrl-C (Sao chép)
7. Ctrl-Alt-V (Dán đặc biệt)
8. Chọn "Giá trị", nhấp OK

Đó là một phương pháp mà Brute Squad sẽ sử dụng, nhưng nó hoạt động.

Đây là một macro sử dụng VBA:

Sub megafiller()
    firstvalue = 2000
    lastvalue = 65000
    firstcellrow = 1
    firstcellcolumn = 1
    Dim wks As Worksheet
    Set wks = ActiveSheet
    thisrow = firstcellrow
    For j = firstvalue To lastvalue
        wks.Cells(thisrow, firstcellcolumn) = j
        thisrow = thisrow + 1
    Next j
    theend = MsgBox("Finished", vbInformation)
End Sub

Mở Macro / VBA, trong ThisWorkbook chèn một mô-đun và dán mã ở bên phải. Chạy nó và đó là tất cả. Với các biến bạn có thể sửa đổi các giá trị start (200) và end (65000). Ngoài ra, bạn có thể sửa đổi các ô bắt đầu. Đối với mã này là A1 ( firstcellrow=1và firstcellcolumn=1).

Cảm ơn mọi người đã giúp tôi. Tôi cũng tìm thấy một cách khác mà tôi chưa từng thấy trước đây. Sử dụng nút Điền trên Tab Trang chủ trong Nhóm Chỉnh sửa và chọn Sê-ri I đã chọn Cột và Tuyến tính và đặt Giá trị Dừng là 65.000 và nhấp vào OK. Điều đó đã làm việc tuyệt vời!

Một lần nữa, cảm ơn mọi người đã dành thời gian giúp tôi. Nó được nhiều đánh giá cao.