) from syscolumns where id = object_id('tbname') 或者 select * from syscolumns where id = object_id('tbname') 或 SELECT MAX(colid) FROM syscolumns WHERE id=OBJECT_ID('table')
一需求:按照标题C的内容,一样的数据整理到一个文件中. 二.操作: 1.atl+F11弹出vb窗口 2.点击 插入===>模块 ,复制以下代码,注意这是一个表头为三行的函数(保存) Sub 保留表头拆分数据为若干新工作簿() Dim arr, d As Object, k, t, i&, lc%, rng As Range, c% '获取分割列的索引 c = Application.InputBox("刘刚:请输入拆分列号", &