execl里的表格用vba代码转换表格样式后 批量插入分页符

程序代码：

测试数据：

生成结果：

程序代码文件（仅供参考，浏览器可能过滤特殊符号和空白，以上图为准）：

Option Explicit

Sub 宏1()

Dim arr, i&, j&, k

arr = ActiveSheetUsedRange '获取原始表

WorkbooksAdd '新建表

For i = 2 To UBound(arr)

If arr(i, 1) <> "" Then

k = k + 1

If k <> 1 Then ActiveWindowSelectedSheetsHPageBreaksAdd Before:=Cells(k, 1)

Cells(k, 1)Resize(1, 2) = Array("姓名", arr(i, 1))

For j = 2 To UBound(arr, 2)

If arr(i, j) <> 0 Then

k = k + 1

Cells(k, 1)Resize(1, 2) = Array(arr(1, j), arr(i, j))

End If

Next j

End If

Next i

End Sub

1、打开需要汇总分析的Excel表格，选择Excel表格上方的“开发工具”选项。

2、然后点击“宏”按钮进行程序编写。

3、然后输入汇总程序的名称，点击编辑按钮。

4、写入程序代码，这里利用的是Do loop until和IF then 语句。汇总的要求为筛选出表格中男性、本科学历、在岗人员的名单。

5、在开发工具选项中选择插入一个按钮控件。

6、选中插入的按钮控件，单击鼠标右键选择“指定宏”选项。

7、将编写的汇总程序制定至按钮控件上，然后点击确定按钮。

8、点击按钮控件即可利用ExcelVBA程序完成对表格的汇总分析。

写了一个简单的，不过还是有点问题。。

首先是我这里放的一样的，这个只要改一下就好了

然后就是我觉得你的要求可能是表格没有列名的，但是如果没有表头的话，就不能把列拖来拖去了。。这也是我在jtable上一直没解决的问题

还有就是表格很大，但是横向的滚动条却出不来。。

最后想说的是，100100是很大的表格，如果你不需要JTable为你带来的方便的话，可以不用表格，只用一个gridlayout之类的放上很多很多label就可以

public class Test {

public static void main(String[] args) {

JFrame frame = new TableTestFrame();

framesetDefaultCloseOperation(JFrameEXIT_ON_CLOSE);

framesetVisible(true);

}

}

class TableTestFrame extends JFrame {

private static final long serialVersionUID = 7294153647230391370L;

public TableTestFrame() {

setTitle("Table Test");

setSize(400, 400);

JTable table = new JTable(TABLE_ROW_COUNT, TABLE_COL_COUNT) {

private static final long serialVersionUID = -7242338608185413474L;

@Override

public Class<> getColumnClass(int column) {

return Iconclass;

}

};

JScrollPane scroll = new JScrollPane(table);

add(scroll, BorderLayoutCENTER);

for (int i = 0; i < TABLE_ROW_COUNT; ++i) {

for (int j = 0; j < TABLE_COL_COUNT; ++j) {

tablesetValueAt(icon, i, j);

}

}

}

private static final Icon icon = new ImageIcon(

"D:\\testgif");

private static final int TABLE_ROW_COUNT = 100;

private static final int TABLE_COL_COUNT = 100;

}

以上就是关于execl里的表格用vba代码转换表格样式后 批量插入分页符全部的内容，包括:execl里的表格用vba代码转换表格样式后 批量插入分页符、如何用VBA语言将多个EXCEL表中不同sheet表汇总到一个excel的不同sheet表中、如何用jTable应用程序创建表格，请给个完整的代码（比如创建100*100的表格，中间可以插入其他元素的）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！