菜鸟谈VBA最最基础入门《原创》

xgczwp

感谢分享，好人一生平安。

doit2009

感谢分享，对初学者很有帮助。

wzdavidwu

很有趣，小白菜学而时习之。
卒！

imyushu

费尽九牛二虎之力，终于把花名册分类给做出来了…
sub 学生花名册分类()
Dim i as integer, a as integer, b as integer, c as byte

i=3

For c=2 to 8
sheets(c).range("A3:L65536").delete
Next

Do while cells(i,)<>""
a=sheets("清镇市外").[a65536].end(xlUp).row+1

If sheets("外在本就读花名册").cells(i,8) <>"清镇") then
sheets("外在本就读花名册").range(cells(i,1),cells(i,12)).copy sheets("清镇市外").cells(a,1)
else
shtname=sheets("外在本就读花名册").cells(i,9)
b=sheets(shtname).[a65536].end(xlUP).row+1
sheets("外在本就读花名册").range(cells(i,1),cells(i,12)).copy sheets(shtname).cells(b,1)
End if

i=i+1
Loop
End sub

imyushu

死了几百万个脑细胞，终于又把花名册汇总给写出来了，呼～

Sub mysub()

Dim start as double
start=Timer

Sheets("外在本就读花名册").range("B3:F107").clearcontents

Dim a as string, b as string, c as byte, d as integer
Dim m as byte, n as byte
Dim i as integer

For c=1 to 8
If sheets(c).name<>"外在本就读花名册" then '修改部分，这下汇总表放哪都不怕了(^з^)
For m=2 to 8
a=sheets("外在本就读花名册").cells(2, m)
For n=2 to 12
b=sheets(c).cells(2, n)
If b=a then
i=3
Do while sheets(c).cells(i,n)<>""
d=sheets("外在本就读花名册").cells(35536, m).end(xlUP).row+1
sheets(c).cells(i,n).copy
sheets("外在本就读花名册").cells(d,m).pastespecial(xlPasteValues)
i=i+1
Loop
End if
Next
Next
End If
Next
Msgbox "程序共执行了" & Timer-start & "秒！"
End sub


写完后看到跟帖说汇总表放的位置不一样会汇总不出来，结果一试果然如此，修改了一下，多加个IF语句，现在放哪都没问题了

guyue58933

好像很难学~~！~！~！

王齐包子

先收藏，以后慢慢学习

艾薇儿123

好帖，好帖，markmark

sdg1345

ggsmart 发表于 2009-8-12 21:49
程序流程控制——Go to 语句
===========================
Go to 在英语里是什么？相信大家的英语都比我 ...

6666新手前来拜读

lrh788

谢谢分享!!!!!!!