Question

excel 自动填写的VB代码

想在excel加个按钮，实现每次点击按钮后将表1中的总分自动填入表2的第一个空白列（例如这次是填入第5周，下次填入第6周...），求大神们给个VB代码，因为是大白，希望有一定说明，谢谢！
我想到的方法是插入控件按钮，在按钮上编写代码，但不知道怎么写。希望能指导下，谢谢啦~





Answer 1

sub 填写
dim a,b as integer
a=[A65536].end(3).row -1'获取当前表（表1）中小组数量
b=sheet2.[BI].end(xlToLeft).row+1'获取表2中最后一次填写的列号
sheet2.cells(2,b).resize(a,1).value=sheet1.cells(2,"G").resize(a,1).value '取值，表2中的第一个空白列粘贴表1中G列的值
[A2:G20].clearcontents  '清除表一数据，假设小于等于20行数据
end sub

复制 除第一行和最后一行的代码，粘贴到你对按钮的编辑宏或者 控件按钮的单击指令中

追问

谢谢你的贴心！显示第4行代码有问题，我再摸索摸索。。。

追答

[BI2].end(xltoleft).column +1
弄错了列号

Answer 2

代码如下（工作表上鼠标右键、查看代码、粘贴内容，以后ALT+F8执行）：

SUB 保存总分()
    N=SHEETS(1).USEDRANGE.ROWS.COUNT-1
    I=SHEETS(2).CELLS(2,COLUMNS.COUNT).END(XLLEFT).COLUMN+1
    ARR=SHEETS(1).CELLS(2,"G").RESIZE(N,1)
    SHEETS(2).CELLS(2,I).RESIZE(N,1)=ARR
END SUB

追问

你好！提示I = Sheets(2).Cells(2, Columns.Count).End(xlLeft).Column + 1出错，能否写一下代码的意思我好调整一下？超级大白，只能看得懂一点点。。。。谢谢了！

Answer 3

这个是vba代码，不是vb代码哦。

追问

那到底要怎样做才能实现呢？

追答

用vba

追问

就是用vba的话，怎么写啊大神？

追答

sub fillsum
dim a,b,c as integer
a=[A65536].end(3).row -1'获取当前表（表1）中小组数量
b=sheet2.[BI].end(xlToLeft).row+1'获取表2中最后一次填写的列号
sheet2.cells(2,b).resize(a,1).value=sheet2.cells(2,"G").resize(a,1).value '取值，表2中的第一个空白列粘贴表1中G列的值
[A2:G20].clearcontents '清除表一数据，假设小于等于20行数据
end sub复制 除第一行和最后一行的代码，粘贴到你对按钮的编辑宏或者 控件按钮的单击指令中

Answer 4

最好有输入值显示为第几周，可好

追问

不明白什么意思哦？