excel VBA编程
用宏来解决比较容易，制成模板可以以后用。下列代码可供参考。
Subtmtx()
Sheets("同名学生").[a1]="班级"
Sheets("同名学生").[b1]="学籍号"
Sheets("同名学生").[c1]="姓名"
a=Sheets("基础数据").[a1].CurrentRegion.Rows.Count判断学生名单的行数。
ForI=2Toa
k=Sheets("同名学生").[a1].CurrentRegion.Rows.Count+1
IfApplication.WorksheetFunction.CountIf([c1:c65530],Cells(I,3))>1Then
Sheets("同名学生").Cells(k,3)=Sheets("基础数据").Cells(I,3)
Sheets("同名学生").Cells(k,2)=Sheets("基础数据").Cells(I,2)
Sheets("同名学生").Cells(k,1)=Sheets("基础数据").Cells(I,1)
EndIf
使用CountIf()函数对每个学生名字进行判断，如果CountIf()值大于1，则将其复制到同名学生。
Sheets("同名学生").[a1].CurrentRegion.SortKey1:=Sheets("同名学生").[c1],Order1:=xlAscending+1,Header:=xlGuess+1
对复制到同名学生的内容以"姓名"作为关键字排序，从而实现同名同姓学生的姓名排在一起，以方便查阅。
IfSheets("同名学生").[a2]=""Then
MsgBox"无同名同姓学生！"
EndIf
如果没有同名同姓的学生，则跳出报告信息窗口。
Sheets("同名学生").Select
EndSub
SubMacro2()
Macro2Macro
Sheets("同名学生").Select
ActiveWindow.SmallScrollDown:=-12
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("基础数据").Select
EndSub
SubMacro1()
Sheets("基础数据").Select
Range("A2").Select
EndSub
VBA的使用，制作论文模板
这里我们以VBA1.7中文版为例。首先打开模拟器，载入GBA游戏，因为如果没运行游戏的话，金手指是不能使用的。之后点击“修改”，在弹出的下拉菜单中选择“金手指列表”之后会弹出一个小窗口，在窗口下方有8个选项。看到“添加”这里，分别有“代码”、“Cheat..”、“金手指”和“修改”4个选项（如图）。这里便是添加金手指的地方，下面我们来一个一个学习他们的使用方法。我们先点击第一个按钮：“代码”。便会弹出一个小窗口在“描述”一栏中，是输入你对这个金手指的说明，例如你可以写上“大师球金手指”或“无限金钱金手指”等介绍，这栏是选填的，你可以输入说明，也可以不输入。“代码”一栏中，是输入金手指的。在“代码"这个按钮中，只能输入“xxxxxxxx:xxxx”或“xxxxxxxx:xx”这种格式的金手指。注意，冒号左边必须是8个数字或字母，冒号右边必须是4个数字/字母或2个数字/字母（你可以看看图上面两个金手指的格式是不是这样），金手指后不能有空格，否则都不能成功输入金手指。点击“确定”就可以把金手指输入到金手指列表里面了。现在我们看第二个按钮“Cheat..”。点击它后，会弹出一个小窗口在“地址值”栏中输入代码的格式必须是“xxxxxxxx”（8个数字/字母）。在“数值”一栏中输入代码的格式是“xxxx”、"xx"。“描述”一栏可写可不写。细心的朋友肯定发现了，在“地址值”中输入的代码，其实就是上面说的格式“xxxxxxxx:xxxx”，冒号左边的代码，而在“数值”栏中输入的，正好是冒号右边的代码。之后在“大小”栏中选择“16－位”，在“数字格式”中选择“十六进制”，点击“确定”就可以了我们再看第三个按钮“金手指”。点击它后，就会弹出一个小窗口，样子和第一个按钮“代码”的差不多。“描述”同上，可写可不写。“代码”一栏中，输入金手指的格式必须是“xxxxxxxxxxxxxxxx”，也就是16个数字/字母（如图，图中的金手指是宝石版全国图鉴的金手指）。点击“确定”就可以了。接下来我们来看最后一个按钮“修改”。点击它后，便会弹出这个窗口“描述”可写可不写。在“代码”栏中输入金手指的格式是“xxxxxxxx xxxxxxxx”，也就是8个数字/字母＋空格＋8个数字/字母。注意别漏了中间的空格。输入完毕后点击“确定”即可。说到这里，如何输入金手指就已经说完了。如果大家还是不知道哪种金手指要往哪输入的话，就请把要输入的金手指往每个按钮都试一下，一定有一个可以输入的。因为有很多金手指不可能每一条都告诉大家该往哪输入，主要是让大家懂得一个方法。现在我们已经学会如何输入金手指了，那么要怎样消除金手指呢？有两个方法可以删除金手指1.选中要删除的金手指，点击金手指列表下方的“移除”按钮，即可删除选中的金手指；如果没有选中金手指，点击后便会删除金手指列表内的所有金手指。2.选中要删除的金手指，点击金手指列表下方的“开启/关闭”按钮，或者去掉金手指代码前面的勾勾，即可停止金手指的作用，起到删除金手指的目的。之后点击金手指列表的“确定”按钮，即可完成金手指的输入，回到游戏。另外有些朋友会问，为何在使用遇敌金手指，并且删掉金手指后，在游戏中仍能遇到之前修改的PM，这是怎么回事呢？其实遇敌金手指并没有完全删除，只要重新打开模拟器载入游戏，就可以恢复了。接下来我们来看看VBA金手指的其他功能。点击“修改”，在弹出的下拉菜单中，我们会看到有“搜索金手指”的这么一个选项。点击它，会弹出一个窗口。这个功能是专门搜索金手指用的，对于新人来说比较复杂，在这里就不再多作说明，有兴趣的朋友可以自己研究一下。
求VBA循环语句的应用范例
所先在界面上拉一个窗体，其标题改为累计 之后在其中加入以下代码 sub 累计_单击() cells(1, 2) = cells(1, 2) + cells(1, 1) ...... end sub 其中的cells(1, 2) = cells(1, 2) + cells(1, 1)即为在b1中累计a1的数值 其余的请自己添加（因不清楚你具体要的是哪些单元），可以用热循环作业
VBA程序设计，excel小程序。
留个脚印写代码去咯.最好楼主给个电邮地址,做好了给你发过去. 按钮1的代码Sub CopyData()Dim T%, RRRR = InputBox("Enter the key words:")Sheets("Sheet1").Range("A5:P65536").ClearContentsWith Sheets("Sheet2")If .AutoFilterMode Then .Range("A1").AutoFilterT = .Range("D65536").End(xlUp).RowWith .Range("P2:P" & T).FormulaR1C1 = "=ROW()".Value = .ValueEnd WithWith .Range("A1:O" & T).AutoFilter.AutoFilter Field:=4, Criteria1:="=*" & RR & "*"End With.Range("A2:P" & T).Copy Sheets("Sheet1").Range("A5")End WithEnd Sub按钮2的代码Sub CopyBack()Dim T%, iWith Sheets("Sheet1")T = .Range("D65536").End(xlUp).RowFor i = 5 To T.Range("A" & i & ":O" & i).Copy Sheets("Sheet2").Range("A" & .Range("P" & i).Value)Next.Range("A5:P65536").ClearContentsEnd WithEnd Sub为防止在sheet1误改行号,需要在sheet1加入以下事件代码:Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 16 And Target.Row >= 5 Then Range("A5").SelectEnd Sub
