假定表格中肯定有“+”号存在，代码如下，如果没有“+”号，则先增加判断语句，否则程序会出错Sub 删除行Ro = quot+quot， ， ， 2Row 1 If Ro 0 Then Rangequot1quot RoDelete End Sub；Private Sub CommandButton1_Click Dim sh As Worksheet， rg As Range， rg0 As Range， rg1 As Range Dim a， i， d， dC， dD， tmp Set d = CreateObjectquotScriptingDictionaryquot Set dC = CreateObjectquotScriptingDictionaryquot Set dD = CreateObjectquot；arr1 = Rangequotf1fquot CellsRowsCount， 1End3Row#39i从1到arr1区域中单元格的数量 For i = 1 To UBoundarr1#39如果arr1中第i，1个元素的内容包含以通配符表示的quot*小节*quot，那就执行IF内的语句 If arr1i， 1 Like quot*小节*quot Then j = j quot，Aquot i End If；Else j = 0 ’执行不满上一条件时进行如下代码 For j = 2 To 12 ‘建立一个从2到12的循环 brrdarri， 1， j = brrdarri， 1， j + arri， j ’实现数据第增 Next ‘回归循环 End If ‘结束判断 Next ‘回归循环 Next ‘回归循环 WorkbooksFClose；hi，本来想把改动的地方标出来，后来发现改动还蛮多的，就不一一标出了，现在应该可以运行了Sub TestDim i As Integer， iRow As Integer Dim strPath As String Dim TheSheet As Worksheet iRow = 1 Set TheSheet = ActiveWorkbookWorksheetsquotsheet1quotstrPath = quotquotE\可丢\huaquotWith。

以下是实现该功能的VBA代码Sub FindDuplicateDim i As Long， j As Long， k As Long Dim rng1 As Range， rng2 As Range Dim ws As Worksheet Set ws = ThisWorkbookSheetsquotSheet1quot #39指定操作的工作表 For i = 5 To 20 Step 4 #39循环遍历每4行数据 Set rng1 = wsRangequotAquot；quotmytelquot quot*quot， LookAt=xlPart #39find的内容 If Not rn Is Nothing Then firstAddress = rnAddress Do msgbox rnValue #39显示找到的单元格值 Set rn = FindNextrn #39找下一个 Loop While Not rn Is Nothing And rnAddress lt firstAddress #39直到一个轮回 End If 代码参考；动态添加文件框可用 quot， quottextBoxTestquot， TrueLabel标签也类似 下面是网上一段类似动态添加控件的代码 供你参考 Private rowCount As Integer #39To keep track of rowsPrivate Sub UserForm_InitializerowCount = 1 End Sub Private Sub LabelAddRow_Click #39；例如用Range的属性CurrentRegion来返回 Range 对象，该对象代表当前区当前区指以任意空白行及空白列的组合为边界的区域同样功能的VBA代码需数十行因此编程前应尽可能多地了解Excel对象的属性方法充分利用Worksheet函数是提高程序运行速度的极度有效的方法如求平均工资的例子For Each c In。

1 Option Explicit 解释强制对模块内所有变量进行声明 2 Option Base 1 解释指定数组的第一个下标为1 3 On Error Resume Next 解释忽略错误继续执行VBA代码，避免出现错误消息 第 1 页 编程简单 AGVAMR 3步建 4 On Error GoTo 100 解释当错误发生时跳转到过程中的某个位置；运行宏保存VBA代码，并返回到Excel界面选中一个或多个单元格，然后按下quotAltquot + quotF8quot打开宏对话框，选择您编写的宏函数并点击quot运行quot请注意，这只是一个基本的示例，实际的VBA编程功能非VBA代码来执行作，如数据处理自动填充生成报表等在Excel中编程需要一定的学习和实践您可以查阅Excel；代码如下，12345在何意单元格都行详见附件Private Sub CommandButton1_ClickDim Ra1 As Range， Ra2 As Range Set Ra1 = CellsFindquot1quot， ， ， 1Offset1If IsEmptyRa1 Then Ra1 = 100 Else Set Ra2 = Ra1Offset， 4End1If Ra2Column Ra1Column；Sub ek_skyDim arr1， i， j #39得到F1Fx的区域，其中x取决于A列最后一个单元格的行，例如A1到A10都有内容，A11开始就没内容了，那么arr1得到的区域就是F1F10 arr1 = Rangequotf1fquot CellsRowsCount， 1End3Row#39i从1到arr1区域中单元格的数量 For i = 1 To UBound。

详见截图，有问题可以追问，excel vba，俺是专业的 Sub 按钮2_ClickDim arrclo = Arrayquot红色quot， quot黄色quot， quot蓝色quotr = ReDim arr1 To r， 1 To 3ApplicationScreenUpdating = False For j = 1 To x = 0 For i；End Sub 示例代码，您需要根据实际情况进行适当的调整；1在“模块1”中插入代码 如果需要在“Sheet1”“Thisworkbook”或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可方法1在模块的开始增加代码，增加的代码放在公共声明option，全局变量等后面Sub AddCode1quot模块1quot；在VBA中，可以利用Range对象的Comment属性判断单元格是否存在批注，如下面的代码所示 复制内容到剪贴板 代码#001 Sub HasComment002 If RangequotA1quotComment Is Nothing Then 003 MsgBox quotA1单元格中没有批注！quot004 Else 005 MsgBox quotA1单元格中批注内容为quot Chr13。