如何在VB程序中重复利用一段代码

把重复利用的一段代码写成函数，唤岩蠢调用即可，给你举个例子枣正：

Private Sub Command1_Click()

dim i,j

j = Format(Dec_to_Bin((i + 65536)), "0000000000000000") '调用函数

End Sub

Public Function Dec_to_Bin(ByVal Dec As Long) As String '重复利用的代码写成函数

Dec_to_Bin = ""

Do While Dec > 0

    Dec_to_Bin 和陪= Dec Mod 2 & Dec_to_Bin

    Dec = Dec \ 2

Loop

End Function

可以用建立辅助列、多条件谨稿统计公式、向下填充的方法解决。特别指出：“向下填充”方法速度很快。代码如下：

Sub 查找重复行()

Dim a As Integer

Dim i As Integer

Dim str As String

a = Range("a65536").End(xlUp).Row '计算数据行数

Cells(1, 255).FormulaArray = "=SUM(IF($A$1:$A$" &a &"=A1,IF($B$1:$B$" &a &"=B1 ,1,0)))" '在辅助列上写入多条件统计公伏扮式缺晌灶

Cells(1, 255).Resize(a, 1).Select '选择辅助列

Selection.FillDown '向下填充

Cells(1, 1).Select

For i = 1 To a

If Cells(i, 255).Value >1 Then

Cells(i, 1).Resize(1, 2).Interior.Color = 255

str = str &i &"，"

End If

Next i

Cells(1, 255).Resize(a, 1).Clear '清除辅助列

str = Mid(str, 1, Len(str) - 1) '去掉str最后一个“，”号

MsgBox "第" &str &"行重复。"

End Sub

---