chenhyc的博客

1、打开目标excel,按alt + f11键打开VBE窗口2、在打开的窗口中双击数据所在表格，在右侧弹出窗口输入以下代码：Sub splitfile() Dim arr, d As Object, k, t, i&, lc%, rng As Range, c% c = Application.InputBox("请输入拆分列号", , 4, , , , , 1) If c = 0 Then Exit Sub Application.ScreenUpdating = False App