如何根据步长付值？

aowei123

如何用VBA快速给工作表 跳列 付上表头 如附件
[url=] 成绩表.rar (9.61 KB, 下载次数: 3)

2020-7-21 15:54 上传

点击文件名下载附件 表.rar[/url]

hfwufanhf2006

看不懂，如果没有现成的表头可用，就用代码指定“填充”，如果有现成表头，那就复制粘贴；
但“按步长付值”就不知道是什么意思了。

aowei123

hfwufanhf2006 发表于 2020-7-21 16:00
看不懂，如果没有现成的表头可用，就用代码指定“填充”，如果有现成表头，那就复制粘贴；
但“按步长付值 ...

有固定表头就是 “序号”，“姓名”，“语文”，“数学”，“英语”，”历史“ 这些表头。“序号和姓名”不隔，其他都是空隔一列 付值上去。我新建一个工作表，就自动付值上去，不用一个一个输。如图那样，

hfwufanhf2006

aowei123 发表于 2020-7-21 16:11
有固定表头就是 “序号”，“姓名”，“语文”，“数学”，“英语”，”历史“ 这些表头。“序号和姓名” ...

数量少的话用代码直接填充，数量很多的话就用循环填充：
1、代码直接填充
     cells(2,4)="语文"    'd2填充“语文”，下面都是类似的意思
     cells(2,6)="数学"
     cells(2,8)="英语"
     cells(2,10)="历史"
     cells(2,12)="化学"
2、循环填充：
    arr=array("语文","数学","英语","历史","化学")
    for i=4 to 12 step 2
         cells(2,i)=arr(i/2-2)
    next i

    注意：数组需要一点算法，数组下标从0开始，初始值i=4时，4/2=2，4/2-2=0，才能与 arr(0) 匹配；
             4/2中的除数 2 其实就是步长 step 2

aowei123

hfwufanhf2006 发表于 2020-7-21 16:26
数量少的话用代码直接填充，数量很多的话就用循环填充：
1、代码直接填充
     cells(2,4)="语文"    ' ...

就是这样子，用循环添加其他科目也比较容易，能否把 序号和姓名也一起添加进去，这个两个不隔列

hfwufanhf2006

aowei123 发表于 2020-7-21 17:09
就是这样子，用循环添加其他科目也比较容易，能否把 序号和姓名也一起添加进去，这个两个不隔列

在循环外面直接填充就好了，数量只有两个，而且它们的规律与后面的不一样，不能合并在一起：
cells(2,1)="序号"
cells(2,2)="姓名"
后面再接上面的循环代码；

金樽空对月

数量不多时，一般情况下都用常量数组完成，代码如下：

1. Sub mysort()
   
2. br = Array("序号", "姓名", "", "语文", "", "数学", "", "英语", "", "历史", "", "化学")
   
3. Range("a2").Resize(1, 12) = br
   
4. End Sub
   

复制代码

aowei123

金樽空对月 发表于 2020-7-25 23:15
数量不多时，一般情况下都用常量数组完成，代码如下：

非常感谢，表头不多 非常简便

aowei123

金樽空对月 发表于 2020-7-25 23:15
数量不多时，一般情况下都用常量数组完成，代码如下：

非常感谢回复，表头不多，这样很实用。