在excel中用空白行拆分两个表答案

【问题标题】：Split two tables with a blank row in excel在excel中用空白行拆分两个表
【发布时间】：2023-02-20 22:06:00
【问题描述】：

我需要用空白行分隔表格，当在表格底部创建新条目时，该空白行会不断下降。我需要表格保持分开，但它们需要保持在同一张纸上，有没有办法在 excel 中做到这一点，或者我是否必须使用 VB？

最初不想在每张纸上都使用宏，因为文件已经开始变慢了，但如果需要的话我不介意尝试一下。

我假设 excel 会自动执行此操作，但事实并非如此，尝试合并和取消合并底部条目下方的单元格，希望 excel 能够识别并放下它，但这也不起作用。

【问题讨论】：

为什么表格必须在同一张纸上？把桌子并排放置而不是一个放在另一个上面怎么样？
表格在彼此之上纯粹是视觉的，管理层似乎不想等待滚动条的 5 秒，它要么是这个，要么是分解工作表，我什至进一步分成单独文件中的部分，但他们要求解决这个问题的方法

标签： excel

【解决方案1】：

了解如何执行此操作

Public Sub InsertRowsInTable(ByVal targetTableName As String)

' Ask user how many rows to ask
Dim rowsToAdd As Variant
rowsToAdd = InputBox("How many rows would you like to add?", "Insert Rows", 1)

' If user didn't input anything, default to 1
If rowsToAdd = vbNullString Then rowsToAdd = 1

Dim targetTable As ListObject
Set targetTable = Range(targetTableName).ListObject

Dim rowinsert As Integer

' Resize the table to add rows
For rowinsert = 0 To rowsToAdd - 1
    targetTable.Range.EntireRow(targetTable.Range.Rows.Count + 1).Insert
Next
targetTable.Resize targetTable.Range.Resize(targetTable.Range.Rows.Count + rowsToAdd)

结束子

【讨论】：