记录一个偏门excel 按照行数来分表

最新推荐文章于 2024-08-02 15:47:10 发布

原创最新推荐文章于 2024-08-02 15:47:10 发布 · 413 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

office技术专栏收录该内容

1 篇文章

订阅专栏

本文提供了一段VB代码，用于将大型Excel表格按指定行数拆分成多个小表格。介绍了如何在WPS和Office环境中安装及使用该代码的方法。

公司没有office 只有wps ，而wps会员自带分表。
在网上找到了一个VB 代码可以使用在excel上。

Sub cfb()
Dim r, c, i, WJhangshu, WJshu, bt As Long
r = Range("A" & Rows.Count).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column
b = InputBox("请输入分表行数")
bt = 1 'title
WJhangshu = b 'num
WJshu = IIf(r - bt Mod 500000, Int((r - bt) / WJhangshu), Int((r - bt) / WJhangshu) + 1)
For i = 0 To WJshu
    Workbooks.Add
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xlsx"
    Application.DisplayAlerts = True
    ThisWorkbook.ActiveSheet.Range("A1").Resize(bt, c).Copy ActiveSheet.Range("A1")
    ThisWorkbook.ActiveSheet.Range("A" & bt + i * WJhangshu + 1).Resize(WJhangshu, c).Copy _
     ActiveSheet.Range("A" & bt + 1)
    ActiveWorkbook.Close True
Next
End Sub

记录下代码和使用方式

在WPS上使用方式下载个Visual Basic for Application 插件，安装后wps可以使用vb代码。
正常在对应的excel表上找到开发工具就会有VB 编辑器。打开使用。

如果找不到直接 alt+f11 打开，在需要分表的工作簿输入代码并保存。可以直接运行，或者退回工作簿使用 alt + f8 来运行宏。

office 则直接打开开发工具 vb编辑器直接使用代码即可。
图就不贴了，单纯记录下。主要没学习过vb语言。