Worksheets(shname).Range("b4")
Next
End Sub

VBA中怎样创建一个名为“table”的新工作表
通过VBA编程，很容易添加新的工作表，但是新表的名字不知怎样控制，对于新创建

的工作表，由于其名字并非特定，所以就不好使用所创建的新表了。不知各位有何高

见。。。。
Sheets.Add
ActiveSheet.Name = "table"

请教：如何用VBA检索表1中A列与表2，3，4，5.....中A列相同的行并把后者整行拷

贝到表1检索到的行中,谢谢!!!!
To yxptwq∶用这程序试看看。
Sub Copy1()
Dim Row_dn1, Row_dnN, i, j, n As Integer
Row_dn1 = Sheet1.Range("A65536").End(xlUp).Row
k = 1: n = 1
For Each wSheet In ActiveWorkbook.Worksheets
With wSheet
If .Name "Sheet1" Then
Row_dnN = .Range("A65536").End(xlUp).Row
For i = 2 To Row_dn1
For j = 2 To Row_dnN
If .Cells(j, 1) = Sheet1.Cells(i, 1) Then
.Rows(j & ":" & j).Copy Destination:=Sheet1.Rows(Row_dn1 +

n & ":" & Row_dn1 + n)
n = n + 1
End If
Next j
Next i
End If
End With
Next wSheet
End Sub

如果要用VBA程式输入密码使用下列程式码

Sub EnterNewPW()
'程式说明:利用SendKey输入VBAProject密码
'注意事项:执行本程式需要在Excel视窗,不能在VBE视窗
Application.SendKeys "%{F11}", True 'Alt + F11 切换到VBA视窗
Application.SendKeys "%T", True 'ALT + T 工具(繁体中文是(T))
Application.SendKeys "e", True '工具(T)-VBproject属性(E)
Application.SendKeys "^{TAB}", True 'TAB 键(切换到PAge2 保护页面)
Application.SendKeys "{+}", True '选取Checkbox方块(锁定专案以供检

视)
'({+} 选取, {-} 取消选取)
Application.SendKeys "{TAB}", True 'TAB 键(跳到第一次输入密码

Textbox
myPW = "chijanzen" '假设密码 chijanzen
Application.SendKeys myPW, True '输入密码
Application.SendKeys "{TAB}", True 'TAB 键(跳到第二次输入密码

Textbox
Application.SendKeys myPW, True '输入密码
Application.SendKeys "{ENTER}", True '按确定钮(预设值)
Application.SendKeys "%{F11}", True '返回Excel视窗
End Sub

冒泡排序法：
冒泡排序法之所以成为“冒泡排序”是因为值较小的或是较轻的元素浮到作为继续排

序的一组数的顶部。
Sub Macro1()
Dim i As Integer
Dim j As Integer
Dim t as integer
Static number(1 To 10) As Integer
For i = 1 To 10
number(i) = inputbox“输入要排序的数：”
Next i

For i = 10To 2 Step -1
For j = 1 To i – 1
‘下面进行位置交换
If number(j) > number(j + 1) Then
t = number(j + 1)
number(j + 1) = number(j)
number(j) = t
End If

Next j
Next i

For i = 1 To 20
Print number(i)
Next i
End sub

首先定义一个数组：通过循环录入10个整数，然后用一个二重循环测试前一个数是否

大于后一个数。如果大于则交换两个数的下标，即交换两个数在数组中的位置，交换

通过一个变量来进行。

我先用传统的方法解决这个问题，经过比较，选用了较为简单的和高效的排序方法
——“快速排序”，具体算法可参考数据结构等有关书籍。对所有数据排序后再合
并相同数据，合并程序较为简便，我开始时采用了这种方法，但后来发现对于这些
的数据，先合并后排序速度更快，因为有大量相同的数据。合并是采用“标记”算
法，具体如下：（设数据已存放在sData()数组中 ，结果存到Queryp()数组，
Amount是数据个数）
'把相同元素置 0
For i = 1 To Amount
If sData(i) 0 Then
For j = i ＋ 1 To Amount

If sData(i) = sData(j) Then sData(j) = 0
Next j
End If
Next i
'删除相同元素
Queryp(1) = sData(1)
k = 1
For i = 2 To Amount
If Not (sData(i) = 0) Then
k = k ＋ 1
Queryp(k) = sData(i)
End If
Next i
kMax = k
ReDim Preserve Queryp(kMax)
虽然这样使得运算速度有所高，但是仍然要进行大量的循环运算，占据了程序大部
分的运算时间。于是我一直在寻觅一种更为高效的算法。
功夫不负有心人，在仔细分析数据的特征，比较了多种方案之后，我终于找到了一
种相当成功的算法，原来要3到4秒的运算缩短到仅需0.1到0.2秒。
我遇到的数据具有以下特征：①相同数据很多，②最大、最小数之间相差不到3，
③都是带两位小数的正数。
针对数据的特征，我采用了以下算法：
针对数据的特征，我采用了以下算法：
步骤：
1． 用一个循环找出整数和小数部分的最大、最小值。小数部分的最大、最小值乘
以100转为整数。
2． 定义一个二维数组，下标范围分别是整数和小数部分的最小值到最大值。