Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để chèn số hàng cụ thể vào các khoảng thời gian cố định trong Excel?

Trong trang tính Excel, bạn có thể chèn một hàng trống giữa các hàng hiện có bằng cách sử dụng chức năng Chèn. Nhưng, nếu bạn có một phạm vi dữ liệu lớn và bạn cần phải chèn hai hàng trống sau mỗi hàng thứ ba, làm cách nào bạn có thể hoàn thành công việc này một cách nhanh chóng và thuận tiện?


Chèn số lượng hàng trống cụ thể vào phạm vi dữ liệu theo các khoảng thời gian cố định bằng mã VBA

Mã VBA sau có thể giúp bạn chèn một số hàng cụ thể sau mỗi hàng thứ n trong dữ liệu hiện có. Vui lòng làm như sau:

1. Giữ ALT + F11 các phím trong Excel và nó sẽ mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Chèn số lượng hàng cụ thể vào dữ liệu theo các khoảng thời gian cố định

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Sau khi dán mã này, vui lòng nhấn F5 để chạy mã này, một hộp nhắc sẽ bật ra để nhắc bạn chọn phạm vi dữ liệu mà bạn muốn chèn các hàng trống, xem ảnh chụp màn hình:

4. Nhấp chuột OK , một hộp nhắc khác sẽ bật ra, vui lòng nhập số khoảng cách hàng, xem ảnh chụp màn hình:

5. Tiếp tục nhấp OK , trong hộp nhắc xuất hiện sau đây, vui lòng nhập số hàng trống mà bạn muốn chèn, xem ảnh chụp màn hình:

6. Sau đó nhấn vào OKvà các hàng trống đã được chèn vào dữ liệu hiện có đều đặn, hãy xem ảnh chụp màn hình:


Chèn số hàng trống cụ thể vào phạm vi dữ liệu dựa trên giá trị ô có mã VBA

Đôi khi, bạn có thể cần phải chèn các hàng trống dựa trên danh sách các giá trị ô, trong trường hợp này, mã VBA bên dưới có thể giúp bạn, hãy làm như sau:

1. Giữ ALT + F11 các phím trong Excel và nó sẽ mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Chèn số hàng trống cụ thể dựa trên danh sách các số:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. Sau khi dán mã này, hãy nhấn F5 để chạy mã này, trong hộp thoại hiện ra, hãy chọn danh sách các số mà bạn muốn chèn các hàng trống dựa trên, xem ảnh chụp màn hình:

4. Sau đó nhấn vào OKvà bạn sẽ nhận được kết quả bạn cần như sau ảnh chụp màn hình hiển thị:


Chèn số hàng trống cụ thể vào phạm vi dữ liệu theo các khoảng thời gian cố định bằng một tính năng tiện dụng

Nếu bạn không quen với mã VBA trên, Kutools cho Excel cũng có thể giúp bạn, nó Chèn hàng & cột trống tính năng có thể chèn số lượng hàng hoặc cột cụ thể vào dữ liệu hiện có ở những khoảng thời gian cố định một cách nhanh chóng và dễ dàng.

LƯU ÝĐể áp dụng điều này Chèn hàng & cột trống , trước tiên, bạn nên tải xuống Kutools cho Excel, và sau đó áp dụng tính năng một cách nhanh chóng và dễ dàng.

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:

1. Chọn phạm vi dữ liệu mà bạn muốn chèn các hàng trống vào các khoảng thời gian.

2. Nhấp chuột Kutools > Chèn > Chèn hàng & cột trống, xem ảnh chụp màn hình:

3. Trong Chèn hàng & cột trống hộp thoại, chọn Hàng trống tùy chọn từ Chèn loại, và sau đó chỉ định số khoảng thời gian và hàng trống mà bạn muốn sử dụng như ảnh chụp màn hình sau:

4. Sau đó nhấn vào OK và các hàng trống đã được chèn vào phạm vi đã chọn ở một khoảng thời gian cụ thể như ảnh chụp màn hình sau:

Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!


Sao chép và chèn các hàng nhiều lần dựa trên các số cụ thể với mã VBA

Giả sử, bạn có một loạt các tada và bây giờ, bạn muốn sao chép từng hàng và dán chúng nhiều lần vào hàng tiếp theo dựa trên danh sách các số như ảnh chụp màn hình bên dưới. Làm cách nào để giải quyết công việc này trong trang tính Excel?

Để giải quyết công việc này, tôi sẽ giới thiệu một mã hữu ích cho bạn, vui lòng thực hiện theo các bước sau:

1. Giữ ALT + F11 các phím trong Excel và nó sẽ mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Sao chép và chèn các hàng nhiều lần dựa trên các số cụ thể:

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3. Sau khi dán mã này, hãy nhấn F5 để chạy mã này, trong hộp thoại hiện ra, hãy chọn danh sách các số mà bạn muốn sao chép và chèn các hàng dữ liệu dựa trên, xem ảnh chụp màn hình:

4. Sau đó nhấn vào OK và số lượng hàng cụ thể đã được sao chép và dán dưới mỗi hàng gốc, hãy xem ảnh chụp màn hình:


Sao chép và chèn các hàng nhiều lần dựa trên các số cụ thể với một tính năng tuyệt vời

Nếu bạn có Kutools cho Excel, Với khả Các hàng / cột trùng lặp dựa trên giá trị ô tính năng, bạn có thể chèn các hàng hoặc cột dựa trên danh sách các số một cách nhanh chóng và dễ dàng.

LƯU ÝĐể áp dụng điều này Các hàng / cột trùng lặp dựa trên giá trị ô, trước tiên, bạn nên tải xuống Kutools cho Excel, và sau đó áp dụng tính năng một cách nhanh chóng và dễ dàng.

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:

1. Nhấp chuột Kutools > Chèn > Các hàng / cột trùng lặp dựa trên giá trị ô, xem ảnh chụp màn hình:

2. Trong Sao chép và chèn hàng & cột hộp thoại, chọn Sao chép và chèn hàng tùy chọn trong Kiểu , sau đó chọn phạm vi dữ liệu bạn muốn sao chép, rồi chỉ định danh sách giá trị mà bạn muốn sao chép các hàng dựa trên, xem ảnh chụp màn hình:

4. Sau đó nhấn vào Ok or Đăng Nhập , bạn sẽ nhận được kết quả sau khi bạn cần:

Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!

Các bài viết tương đối hơn:

  • Sao chép và chèn hàng nhiều lần hoặc sao chép hàng X lần
  • Trong công việc hàng ngày, bạn đã bao giờ cố gắng sao chép một hàng hoặc từng hàng rồi chèn nhiều lần vào bên dưới hàng dữ liệu hiện tại trong một trang tính chưa? Ví dụ: tôi có một dải ô, bây giờ, tôi muốn sao chép từng hàng và dán chúng 3 lần vào hàng tiếp theo như hình minh họa sau. Làm thế nào bạn có thể giải quyết công việc này trong Excel?
  • Chèn hàng trống khi giá trị thay đổi trong Excel
  • Giả sử bạn có một dải dữ liệu và bây giờ bạn muốn chèn các hàng trống vào giữa dữ liệu khi giá trị thay đổi, để bạn có thể tách các giá trị tương tự tuần tự trong một cột như ảnh chụp màn hình sau được hiển thị. Trong bài viết này, tôi sẽ nói về một số thủ thuật để bạn giải quyết vấn đề này.
  • Chèn một hàng trống sau văn bản cụ thể trong Excel
  • Nếu bạn muốn chèn các hàng trống sau một văn bản cụ thể như hình minh họa dưới đây, làm thế nào để xử lý nó một cách nhanh chóng và dễ dàng mà không cần chèn từng hàng một theo cách thủ công?
  • Sao chép hàng từ nhiều trang tính dựa trên tiêu chí vào một trang tính mới
  • Giả sử, bạn có một sổ làm việc với ba trang tính có cùng định dạng như hình minh họa bên dưới. Bây giờ, bạn muốn sao chép tất cả các hàng từ các trang tính này mà cột C chứa văn bản “Đã hoàn thành” vào một trang tính mới. Làm thế nào bạn có thể giải quyết vấn đề này một cách nhanh chóng và dễ dàng mà không cần sao chép và dán từng cái một theo cách thủ công?

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (39)
Xếp hạng 5 trong 5 · xếp hạng 2
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đang sử dụng mã của bạn (bên dưới), bạn có thể vui lòng cho tôi biết làm cách nào để điền các hàng đó bằng văn bản tùy chỉnh vào đó không. Tôi đã sử dụng mã của bạn để nhập ba hàng, nó hoạt động hoàn hảo nhưng bây giờ tôi cần nhập văn bản Row1 = Date Row2. = Location Row3 = Phone Number Cảm ơn trước ... "Sub InsertRowsAtIntervals () 'Updateby20150707 Dim Rng As Range Dim xInterval As Integer Dim xRows As Integer Dim xRowsCount As Integer Dim xNum1 As Integer Dim xNum2 As Integer Dim WorkRng As Range Dim xWs As Worksheet xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("RangeId", xTitle Range , WorkRng.Address, Type: = 8) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox ("Nhập khoảng cách hàng.", XTitleId, 1, Type: = 1) xRows = Application.InputBox ("Có bao nhiêu hàng để chèn tại mỗi khoảng thời gian? ", xTitleId, 1, Type: = 1) xNum1 = WorkRng.Row + xInterval xNum2 = xRows + xInterval Đặt xWs = WorkRng.Parent For i = 1 To Int (xRowsCount / xInterval) xWs.Range (xWs .Cells (xNum1, WorkRng.Column), xWs.Cells (xNum1 + xRows - 1, WorkRng.Column)). Chọn Application.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 Next End Sub "
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cảm ơn nhiều!!!!! Thật đáng kinh ngạc
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn rất nhiều!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi


Tôi sử dụng mã khoảng vba của nó hoạt động..Nhưng khi tôi sử dụng trên 100000 hàng, nó không hoạt động .. vui lòng đề xuất những gì tôi nên thay đổi nếu có.


Sub InsertRowsAtIntervals ()
'Updateby20150707
Dim Rng Như Phạm vi
Dim xInterval dưới dạng số nguyên
Dim xRows dưới dạng số nguyên
Dim xRowsCount dưới dạng số nguyên
Dim xNum1 dưới dạng số nguyên
Dim xNum2 dưới dạng số nguyên
Dim WorkRng As Range
Làm mờ xWs dưới dạng trang tính
xTitleId = "KutoolsforExcel"
Đặt WorkRng = Application.Selection
Đặt WorkRng = Application.InputBox ("Phạm vi", xTitleId, WorkRng.Address, Loại: = 8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox ("Nhập khoảng cách hàng.", xTitleId, 1, Loại: = 1)
xRows = Application.InputBox ("Có bao nhiêu hàng để chèn vào mỗi khoảng thời gian?", xTitleId, 1, Type: = 1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Đặt xWs = WorkRng.Parent
Đối với i = 1 Đến Int (xRowsCount / xInterval)
xWs.Range (xWs.Cells (xNum1, WorkRng.Column), xWs.Cells (xNum1 + xRows - 1, WorkRng.Column)). Chọn
Ứng dụng.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Sau
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thật tuyệt vời - bạn đã tiết kiệm cho tôi rất nhiều lần nhập dữ liệu vô tâm, cảm ơn bạn rất nhiều
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào, làm cách nào để tôi có thể lấy mã để Chèn một số cột cụ thể vào dữ liệu ở những khoảng thời gian cố định
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, PK,
Để chèn các cột trống vào dữ liệu hiện có trong các khoảng thời gian cụ thể, mã VBA dưới đây có thể giúp bạn! Hãy thử nó.

Sub InsertColumnsAtIntervals ()
Dim Rng Như Phạm vi
Dim xInterval dưới dạng số nguyên
Làm mờ xCs dưới dạng số nguyên
Giảm xCCount dưới dạng số nguyên
Dim xNum1 dưới dạng số nguyên
Dim xNum2 dưới dạng số nguyên
Dim WorkRng As Range
Làm mờ xWs dưới dạng trang tính
xTitleId = "KutoolsforExcel"
Đặt WorkRng = Application.Selection
Đặt WorkRng = Application.InputBox ("Phạm vi", xTitleId, WorkRng.Address, Loại: = 8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox ("Nhập khoảng cột.", xTitleId, 1, Loại: = 1)
xCs = Application.InputBox ("Có bao nhiêu cột để chèn vào mỗi khoảng thời gian?", xTitleId, 1, Type: = 1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xInterval
Đặt xWs = WorkRng.Parent
Đối với I = 1 Đến Int (xCCount / xInterval)
xWs.Range (xWs.Cells (WorkRng.Row, xNum1 + xCs - 1), xWs.Cells (WorkRng.Row, xNum1)). Chọn
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
Sau
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào để thêm các hàng trong dữ liệu excel theo số được đề cập trong ô cuối cùng, nói trong dữ liệu excel nếu ô cuối cùng hiển thị số là 4, cách để dd 4 hàng một cách tự động là gì. ở hàng khác số là 72, v.v.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, SPGupta,
Để chèn các hàng trống dựa trên danh sách số cụ thể, vui lòng áp dụng mã VBA bên dưới.
Hãy cố gắng, hy vọng nó có thể giúp bạn!

Chèn phụ ()
'Cập nhật bởiExtendoffice
Dim xRg theo phạm vi
Dim xaddress dưới dạng chuỗi
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Đặt xRg = Application.InputBox ("Chọn cột số đặc biệt để sử dụng (cột đơn):", "KuTools For Excel", xAddress,,,, 8)
Nếu xRg không có gì thì thoát Sub
Application.ScreenUpdating = Sai
xLastRow = xRg (1) .End (xlDown) .Row
xFstRow = xRg.Row
xCol = xRg.Cột
xCount = xRg.Count
Đặt xRg = xRg (1)
Đối với I = xLastRow Đến xFstRow Bước -1
xNum = Ô (I, xCol)
Nếu IsNumeric (xNum) Và xNum> 0 Thì
Rows (I + 1) .Resize (xNum) .Insert
xCount = xCount + xNum
Cuối Nếu
Sau
xRg.Resize (xCount, 1). Chọn
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, bạn có thể giúp tôi được không? Làm cách nào để thay đổi mã này thành quảng cáo ít hàng hơn một số trong ô? Ví dụ, nếu số trong ô là 4, chương trình thêm 3 hàng. Nếu số trong ô là 1, các hàng không được gắn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Nina,
Để giải quyết nhiệm vụ của bạn, vui lòng sử dụng mã dưới đây:

Chèn phụ ()
'Cập nhật bởiExtendoffice
Dim xRg theo phạm vi
Dim xaddress dưới dạng chuỗi
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Đặt xRg = Application.InputBox ("Chọn cột số đặc biệt để sử dụng (cột đơn):", "KuTools For Excel", xAddress,,,, 8)
Nếu xRg không có gì thì thoát Sub
Application.ScreenUpdating = Sai
xLastRow = xRg (1) .End (xlDown) .Row
xFstRow = xRg.Row
xCol = xRg.Cột
xCount = xRg.Count
Đặt xRg = xRg (1)
Đối với I = xLastRow Đến xFstRow Bước -1
xNum = Ô (I, xCol)
xNum = xNum - 1
Nếu IsNumeric (xNum) Và xNum> 0 Thì
Rows (I + 1) .Resize (xNum) .Insert
xCount = xCount + xNum
Cuối Nếu
Sau
xRg.Resize (xCount, 1). Chọn
Application.ScreenUpdating = True
End Sub


Hãy cố gắng, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó hoạt động hoàn hảo, cảm ơn bạn rất nhiều!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều đó thật tuyệt. Tôi chỉ băn khoăn ... và tiếng Anh của tôi không hoàn hảo nên mong các bạn thông cảm cho tôi :) .....
Có thể điền vào các hàng trống đã thêm với các giá trị từ hàng mà số tham số đó không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Vladimir, Ý của bạn là chèn các hàng trống dựa trên danh sách các số trong trang tính? Nếu vậy, vui lòng áp dụng mã dưới đây:
Chèn phụ ()
'Cập nhật bởiExtendoffice
Dim xRg theo phạm vi
Dim xaddress dưới dạng chuỗi
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Đặt xRg = Application.InputBox ("Chọn danh sách các số mà bạn muốn chèn các hàng dựa trên:", "KuTools For Excel", xAddress,,,, 8)
Nếu xRg không có gì thì thoát Sub
Application.ScreenUpdating = Sai
xLastRow = xRg (1) .End (xlDown) .Row
xFstRow = xRg.Row
xCol = xRg.Cột
xCount = xRg.Count
Đặt xRg = xRg (1)
Đối với I = xLastRow Đến xFstRow Bước -1
xNum = Ô (I, xCol)
Nếu IsNumeric (xNum) Và xNum> 0 Thì
Rows (I + 1) .Resize (xNum) .Insert
xCount = xCount + xNum
Cuối Nếu
Sau
xRg.Resize (xCount, 1). Chọn
Application.ScreenUpdating = True
End Sub Các bạn vui lòng thử nhé, nếu có câu hỏi khác, hãy comment tại đây.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã này hoàn hảo để chèn các hàng .... Sub Insert ()
'Cập nhật bởiExtendoffice
Dim xRg theo phạm vi
Dim xaddress dưới dạng chuỗi
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Đặt xRg = Application.InputBox ("Chọn cột số đặc biệt để sử dụng (cột đơn):", "KuTools For Excel", xAddress,,,, 8)
Nếu xRg không có gì thì thoát Sub
Application.ScreenUpdating = Sai
xLastRow = xRg (1) .End (xlDown) .Row
xFstRow = xRg.Row
xCol = xRg.Cột
xCount = xRg.Count
Đặt xRg = xRg (1)
Đối với I = xLastRow Đến xFstRow Bước -1
xNum = Ô (I, xCol)
xNum = xNum - 1
Nếu IsNumeric (xNum) Và xNum> 0 Thì
Rows (I + 1) .Resize (xNum) .Insert
xCount = xCount + xNum
Cuối Nếu
Sau
xRg.Resize (xCount, 1). Chọn
Application.ScreenUpdating = True
End Sub

Nhưng liệu có thể .... sao chép dữ liệu trong các ô trống đó từ hàng mà số tham số đó không? Tôi có thể đăng hình ảnh ở đây không? Có lẽ sẽ dễ dàng hơn nếu tôi chỉ cho bạn những gì tôi cần :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Vladimir, Có thể mã VBA dưới đây có thể giúp bạn, hãy thử nó. Sub CopyRow ()
'Cập nhật bởiExtendoffice
Dim xRg theo phạm vi
Làm mờ xCRg theo phạm vi
Dim xFNum dưới dạng số nguyên
Làm mờ xRN dưới dạng số nguyên
On Error Resume Next
ChọnPhạm vi:
xTxt = ActiveWindow.RangeSelection.Address
Đặt xRg = Application.InputBox ("Chọn danh sách số", "Kutools cho Excel", xTxt,,,,, 8)
Nếu xRg không có gì thì thoát Sub

Nếu xRg.Columns.Count> 1 Thì
MsgBox "Vui lòng chọn cột đơn!"
GoTo SelectRange
Cuối Nếu
Application.ScreenUpdating = Sai
Đối với xFNum = xRg. Tính đến 1 bước -1
Đặt xCRg = xRg.Item (xFNum)
xRN = CInt (xCRg.Value)
Với hàng (xCRg.Row)
.Sao chép
.Resize (xRN) .Insert
Kết thúc với
Sau
Application.ScreenUpdating = True
End Sub

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chúng ta đang ở rất gần :) Tất cả những gì tôi cần bây giờ là ít hơn một hàng so với mã VBA cuối cùng, chứ không phải là giá trị của số tham số. Ví dụ: Nếu số là 8, chúng ta cần chèn và sao chép 7 hàng. Như bạn đã làm cho Nina chỉ với BẢN SAO này
Vì vậy, nếu số là 8 thì chúng ta sẽ có tổng cộng 8 hàng được chèn và sao chép, và với mã VBA trước đó, chúng ta có 9.
Tnx
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Trong trường hợp này, mã sau có thể giúp bạn, vui lòng thử: Bản sao phụ ()
'Cập nhật bởi Extendoffice
Dim xRow As Long
Dim VInSertNum làm biến thể
xHàng = 1
Application.ScreenUpdating = Sai
Thực hiện trong khi (Ô (xRow, "A") <> "")
VInSertNum = Ô (xRow, "B")
If ((VInSertNum> 1) And IsNumeric (VInSertNum)) Thì
Phạm vi (Ô (xRow, "A"), Ô (xRow, "B")). Sao chép
Phạm vi (Ô (xRow + 1, "A"), Ô (xRow + VInSertNum - 1, "B")). Chọn
Selection.Insert Shift: = xlDown
xRow = xRow + VInSertNum - 1
Cuối Nếu
xRow = xRow + 1
Vòng lặp
Application.ScreenUpdating = Sai
End SubNote: Trong đoạn mã trên, ký tự A cho biết cột bắt đầu của phạm vi dữ liệu của bạn và ký tự B là ký tự cột mà bạn muốn sao chép các hàng dựa trên. Vui lòng thay đổi chúng theo nhu cầu của bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có mô-đun trừ số đã sao chép từng cái một không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Không. Tôi có cái này, nhưng tôi cần nó trừ đi 1?
Sub CopyRow ()
'Cập nhật bởiExtendoffice
Dim xRg theo phạm vi
Làm mờ xCRg theo phạm vi
Dim xFNum dưới dạng số nguyên
Làm mờ xRN dưới dạng số nguyên
On Error Resume Next
ChọnPhạm vi:
xTxt = ActiveWindow.RangeSelection.Address
Đặt xRg = Application.InputBox ("Chọn danh sách số", "Kutools cho Excel", xTxt,,,,, 8)
Nếu xRg không có gì thì thoát Sub

Nếu xRg.Columns.Count> 1 Thì
MsgBox "Vui lòng chọn cột đơn!"
GoTo SelectRange
Cuối Nếu
Application.ScreenUpdating = Sai
Đối với xFNum = xRg. Tính đến 1 bước -1
Đặt xCRg = xRg.Item (xFNum)
xRN = CInt (xCRg.Value)
Với hàng (xCRg.Row)
.Sao chép
.Resize (xRN) .Insert
Kết thúc với
Sau
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Những gì tôi đang cố gắng làm là tạo và in nhãn trong Word từ một bảng tính với nhiều số lượng?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn đã có cơ hội để xem cái này chưa?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vàng chúc phúc cho bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tìm mã để tạo một danh sách excel nhân bản một số trong một ô và trừ đi 1 cho bản gốc?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin cảm ơn tác giả! Bạn xứng đáng được khen ngợi tốt nhất cho những điều này! Nhưng làm ơn bạn có thể giúp tôi với mã để đặt một giá trị không đổi vào tất cả các hàng trống mà tôi đã tạo với mã của bạn ở trên không? Để làm cho bản thân rõ ràng hơn, tôi cần phải chèn một giá trị không đổi vào tất cả các hàng trống (điều này đã được giải quyết với mã của bạn ở trên) sau đó tôi cần phải chèn một giá trị không đổi vào tất cả các hàng trống (đây là vấn đề của tôi). Cảm ơn bạn như tôi mong đợi phản hồi tử tế của bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Ý bạn là điền vào các hàng trống với giá trị cụ thể? Nếu vậy, bài viết sau cna giúp bạn:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Hãy thử nó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có thể nhận mã VBA để xóa các hàng dựa trên các giá trị trùng lặp trong một cột đã chọn giữ tất cả các giá trị duy nhất không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Roy, Nếu bạn muốn xóa các hàng dựa trên các giá trị trùng lặp, thông thường, bạn có thể sử dụng Loại bỏ các bản sao trong Excel để loại bỏ các hàng. Tất nhiên, nếu bạn cần mã VBA, vui lòng sử dụng mã dưới đây: (Trước tiên, bạn nên chọn phạm vi dữ liệu mà bạn muốn loại bỏ, sau đó chạy mã này, các hàng dựa trên các giá trị trùng lặp trong cột đầu tiên mà bạn lựa chọn sẽ bị xóa ngay lập tức.) Sub Delete_duplicate_rows ()
Dim Rng Như Phạm vi
Đặt Rng = Lựa chọn
Rng.RemoveDuplicates Columns: = Array (1), Header: = xlYes
End SubXin vui lòng cố gắng, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này thật tuyệt !! Cảm ơn rất nhiều
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Muto obrigado, savou meu trabalho, eu not tinha ideia de como fazer. Muto obrigado mesmo!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,
Không có chi. Rất vui vì nó có ích. Nếu có thắc mắc gì, vui lòng liên hệ với chúng tôi. Có một ngày tuyệt vời.
Trân trọng,
Mandy
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
bạn có thể cho mình biết cách chèn cột như thế này được không, mã là gì
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào bạn,
Bạn có thể sử dụng mã VBA này:

Sub InsertColumnsAtIntervals()

'Updateby Extendoffice

Dim Rng As Range

Dim xInterval As Integer

Dim xColumns As Integer

Dim xColumnsCount As Integer

Dim xNum1 As Integer

Dim xNum2 As Integer

Dim WorkRng As Range

Dim xWs As Worksheet

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)

xColumnsCount = WorkRng.Columns.Count

xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)

xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)

xNum1 = WorkRng.Column + xInterval

xNum2 = xColumns + xInterval

Set xWs = WorkRng.Parent

For i = 1 To Int(xColumnsCount / xInterval)

    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select

    Application.Selection.EntireColumn.Insert

    xNum1 = xNum1 + xNum2

Next

End Sub


Trân trọng,
Mandy
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Вот выручили так выручили!
Sau đó, bạn có thể tìm thấy những gì đã xảy ra.
Ваш макрос мне очень помог.
Xếp hạng 5 trong 5
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tên Địa chỉ Email Điện thoại
0 Tên Địa chỉ Email Điện thoại
dòng địa chỉ 2 Tên Điện thoại 0
Tên Địa chỉ Email Điện thoại
0 Tên Địa chỉ Email Điện thoại
dòng địa chỉ 2 0


Làm cách nào để tôi có thể chỉnh sửa điều này để bắt đầu một hàng mới ở mọi giá trị trống hoặc giá trị 0 mà không có số điện thoại bằng 0 bắt đầu một hàng mới?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Jarrod

Xin lỗi, tôi không thể hiểu rõ vấn đề của bạn.
Bạn có thể giải thích vấn đề của bạn chi tiết hơn? Hoặc bạn có thể chèn ảnh chụp màn hình hoặc tệp tại đây.
Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào, hay algun codigo que me allowa copy los datos, pero que en la primera columna que son fechas pueda ser consecutivo.

ejemplo

en vez de que quede asi

01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez

quede asi

01/10/2022 19.258.369-4 Juan Ramirez
02/10/2022 19.258.369-4 Juan Ramirez
03/10/2022 19.258.369-4 Juan Ramirez

cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào, hay algun codigo que me allowa copy los datos, pero que en la primera columna que son fechas puedan ser secutivas.

ejemplo

en vez de que quede asi

10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez

quede asi

10/01/2022 19.258.369-4 Juan Ramirez
11/01/2022 19.258.369-4 Juan Ramirez
12/01/2022 19.258.369-4 Juan Ramirez

cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Kịch bản vba tuyệt vời!
Tôi có hơn 5000 hàng mà tôi cần thêm hàng mới vào giữa. Tất cả các hướng dẫn khác đều yêu cầu tôi tạo cột "trợ giúp", tôi sẽ mất một phần thời gian để thêm 1,2 bản sao dán đi dán lại chỉ để thêm các hàng mới.
Vì vậy, cảm ơn vì điều này!
Xếp hạng 5 trong 5
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL