excel表格vba编程,求一段excel vba代码

excel表格vba编程,求一段excel vba代码详细介绍

本文目录一览： Excel表格怎么编程？使用Excel表格编程的操作方法

xcel表格众所周知是一款整理数据的工具，随着技术发展，Excel也增加了很多功能，人们也非常愿意在同一个软件中实现更多的功能，比如在excel中进行编程操作。Excel是有简单编程，vba函数就可以通过Excel来进行简单编程展示，下面内容就来用Excel演示编程的操作方法。更多Excel表格零基础入门到快速精通的教程课程就在哦，想自学Excel的一定要看看。
Excel编程的操作方法：
1、打开excel文档，在开发工具中找到vba。要使用vba必须要通过vba工具栏进行操作，因此需要将vba工具栏调出。如果找不到vba的位置，在excel的选项中进行设置勾选。勾选之后点击确定返回主界面可以看到工具栏出现“开发工具”字样，说明vba工具栏已经调取成功。
2、如图所示，点击“插入”中的“模块”。
3、然后输入
Sub输入()
Range("A1")=360-----这个是今天展示的数字。
EndSub
可以执行的VBA代码(宏程序)，结构是这样的：
Sub程序名(参数)
可以执行任务的代码
EndSub
点击“运行”图标。
4、通过简单的编程操作，我们得到了最终的数据。
以上就是Excel简单编程的操作演示过程了，以vba为例子进行了演示，是不是觉得编程其实也没有很难，自己试试看吧。

怎样用VBA在excel中添加一个工作表并且对其命名

用VBA在excel中添加一个工作表并且对其命名的实现方法和操作步骤如下：
1、首先，在Excel中按快捷键“Alt + F11”，如下图所示。
2、其次，在VBA编辑器中依次单击“插入”-->“模块”，如下图所示。
3、然后，在“模块”中输入如下代码：
Option Explicit
Sub addwork()
Sheets.Add after:=Sheets(Sheets.Count)
End Sub
4、接着，在VBA编辑器的左侧输入模块的名称，如下图所示。
5、随后，关闭VBA编辑器，返回到Excel工作表，然后依次单击“视图”-->“宏”-->“查看宏”，如下图所示。
6、最后，在弹出的窗口中单击宏名称，然后单击“执行”按钮即可，如下图所示。这样就实现了用VBA在excel中添加一个工作表并且对其命名的功能了。

excel中如何将用vba把表一的信息录入表二 你学会了吗

1、可以先利用宏录制来自动生成代码，然后再进行修改。操作方法如下：第一步，打开一个excel应用，新建一个白空表格，并录入数据。
2、第二步，点击excel应用程序窗口状态栏中左侧的“宏录制”按钮。
3、第三步，然后在表1中，选中左上角第一个有数据的单元格。
4、第四步，接着按下CTRL+SHIFT键，再分别先后按下方向右键、方向下键，选中表1中全部数据。
5、第五步，再接着按下ctrl+C复制选中数据，切换到表2中，在要保存数据的行的第一个单元中点击一下，再ctrl+V粘贴。
6、第六步，再次点下 excel应用程序状态栏左侧的宏录制按钮，停止宏录制。
7、第七步，按下组全键：ALT+F11，打开vba编辑窗口，展开模块，双击打开模块1，在右侧就可以看到刚录制的宏代码了，这个代码基本就能解决前面提出的问题了。
我可以为您提供有关使用 VBA 将表一的信息录入表二的指导如下：
使用 VBA 将表一的信息录入表二的基本方法如下所示：
1. 打开 Excel，然后打开表一和表二。
2. 在表二中创建与表一相同的列名。
3. 启用 VBA 编辑器，为代码创建一个新的模块。
4. 在代码模块中，使用“for”或“while”循环遍历表一所有行。
5. 对于每个行，将特定数据复制到表二中创建的相应列中。
6. 编写完成后，执行 VBA 代码即可将表一的信息录入表二。
这里提供一段 VBA 代码供您参考：
Sub copyDataToTable2()
Dim x As Long
Dim lastRow As Long
lastRow = Sheets("表一").Range("A" & Rows.Count).End(xlUp).Row
For x = 2 To lastRow
Sheets("表二").Cells(x, 1) = Sheets("表一").Cells(x, 1)
Sheets("表二").Cells(x, 2) = Sheets("表一").Cells(x, 2)
'...依次将表一中的所有数据复制到表二中创建的相应列中

Next x
End Sub
这段代码可以将表一的第一列和第二列数据复制到表二中，您可以根据需要修改。
希望以上指导可以帮到您。

Excel写个VBA谁会？

要实现这个功能，您可以使用Excel的公式。以下是一个解决方案，您可以根据需要修改单元格范围：
在Q4单元格中输入以下公式：
=IF(ISNUMBER(MATCH(A4, A5:O6, 0)), A4, "")
这个公式会检查A4单元格中的数字是否在A5:O6范围内，如果有重复，则将A4的值放在Q4单元格中，否则为空。
选中Q4单元格，将其复制，然后选择R4:Z4范围，粘贴公式。这将检查B4:O4中的其他数字。
选中Q4:Z4范围，将其复制，然后选择Q5:Z5范围，粘贴公式。这将检查A5:O5与A6:O7范围的重复数字。
按照上述方法，将公式向下扩展，以检查所有行的重复数字。
在AA4单元格（或您选择的任何其他列）中输入以下公式，以显示每四行重复数字的结果：
=IF(MOD(ROW(),4)=0, TEXTJOIN(", ",TRUE,Q4:Z4), "")
这个公式会检查当前行号是否可以被4整除，如果可以，则将Q4:Z4范围内的重复数字用逗号分隔的形式显示出来。否则，单元格将为空。
将AA4单元格的公式向下扩展，以获取每四行的结果。
这样，您将在Q:Z列中看到每行与下两行比较的重复数字，并在AA列中看到每四行的结果。您可以根据需要调整行和列的范围。
以下为实现该功能的Excel公式：
在Q4单元格中输入以下公式，然后将其拖拽至R4:Z4中：
```
=IF(COUNTIF($A$5:$O$6,$A4)>0,TEXTJOIN(",",TRUE,$A4:$O4),"")
```
在Q5单元格中输入以下公式，然后将其拖拽至R5:Z5中：
```
=IF(COUNTIF($A$6:$O$7,$A5)>0,TEXTJOIN(",",TRUE,$A5:$O5),"")
```
将以上两个公式整行复制，粘贴到需要进行操作的每四行对应的Q、R、S、T、U、V、W、X、Y、Z列中。
最后，在AA4单元格中输入以下公式，并将其拖拽下去至需要显示结果的所有行：
```
=TEXTJOIN(",",TRUE,Q4:Z4)
```
这样就可以实现按照要求把重复数字放在指定位置并输出结果的功能了。
以下是一个可以解决这个问题的VBA程序代码，请将其放置在Excel的VBA编辑器中：
Sub FindDuplicates()
Dim lastRow As Long
Dim i As Long, j As Long, k As Long
Dim arr1 As Variant, arr2 As Variant
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
' 设定最後一行
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
' 逐行搜寻
For i = 5 To lastRow Step 4
' 将搜寻范围储存到变数中
arr1 = Range("A" & i & ":O" & i).Value
arr2 = Range("A" & i + 1 & ":O" & i + 1).Value
' 逐个元素比较
For j = LBound(arr1, 2) To UBound(arr1, 2)
For k = LBound(arr2, 2) To UBound(arr2, 2)
' 如果有重复的数字，就将其储存到字典中
If arr1(1, j) = arr2(1, k) Then
dict(arr1(1, j)) = 1
Exit For
End If
Next k
Next j
' 将字典中的元素写入结果储存列
If dict.Count > 0 Then
Range("Q" & i / 4 + 3 & ":Z" & i / 4 + 3).Value = dict.keys
Set dict = CreateObject("Scripting.Dictionary")
End If
Next i
End Sub
这个程序代码会逐行搜寻指定范围的数字，并将重复的数字储存到一个字典中。最后，将字典中的元素写入结果储存列。注意，在字典中，每个元素只会储存一次。此外，程序代码还假定您的表格是从第五行开始且每四行为一组。如果这不是您的情况，请将程序代码中的相应行数更改为适当的值。
Sub CheckDuplicates()Dim i As Long, j As Long, k As LongDim range1 As Range, range2 As Range, range3 As Range'设置第一个比较的范围Set range1 = Range("A4:O4")'循环比较每一行的数据For i = 4 To 65536 Step 4Set range2 = Range("A" & i + 1 & ":O" & i + 2)Set range3 = Range("Q" & i & ":Z" & i)For j = 1 To range1.Columns.CountFor k = 1 To range2.Columns.Count'判断是否有重复的数字If range1.Cells(1, j) = range2.Cells(1, k) Then'把重复的数字放到指定的位置range3.Cells(1, k) = range1.Cells(1, j)End IfNext kNext jSet range1 = range2Next i'把结果在另一行输出For i = 4 To 65536 Step 4Set range1 = Range("A" & i & ":O" & i)Set range2 = Range("A" & i + 3 & ":O" & i + 3)Set range3 = Range("Q" & i & ":Z" & i)For j = 1 To range1.Columns.CountFor k = 1 To range2.Columns.Count'判断是否有重复的数字If range1.Cells(1, j) = range2.Cells(1, k) Then'把重复的数字放到指定的位置range3.Cells(1, k) = range1.Cells(1, j)End IfNext kNext jNext iEnd Sub
使用方法：
在Excel中打开需要进行操作的文件，按下 Alt + F11 打开VBA编辑器。
在左侧的 Project - VBAProject 中，双击需要进行操作的表格的名称，打开代码编辑窗口。
将以上代码复制并粘贴到编辑窗口中。
按下 F5 运行代码，程序将自动完成操作。
注意：以上代码可能会影响到其他表格的数据，使用前请备份数据。
这个问题需要使用VBA编程来完成。以下是代码：
Sub CompareAndMove()
Dim CompareRow As Integer
Dim CurrentRow As Integer
Dim DuplicateCount As Integer
Dim DuplicateString As String

For CompareRow = 4 To 21 Step 2
For CurrentRow = CompareRow + 1 To CompareRow + 2
DuplicateCount = 0
DuplicateString = ""
For i = 1 To 15
If Cells(CompareRow, i) = Cells(CurrentRow, i) Then
DuplicateCount = DuplicateCount + 1
DuplicateString = DuplicateString & Cells(CompareRow, i) & ", "
End If
Next i
If DuplicateCount > 0 Then
Range("Q" & CurrentRow - 3 & ":Z" & CurrentRow - 3).Value = DuplicateString
End If
Next CurrentRow
Next CompareRow

'Check for overall duplicates
For i = 4 To 21 Step 4
DuplicateCount = 0
DuplicateString = ""
For j = 1 To 15
If Cells(i, j) = Cells(i + 1, j) Or Cells(i, j) = Cells(i + 2, j) Or Cells(i, j) = Cells(i + 3, j) Then
DuplicateCount = DuplicateCount + 1
DuplicateString = DuplicateString & Cells(i, j) & ", "
End If
Next j
If DuplicateCount > 0 Then
Range("A22").Offset(0, i - 4).Value = DuplicateString
End If
Next i

End Sub
这个程序将在第21行中显示重复项。请注意，此程序假定输入始终是20行，其中每4行有一个重复项，并且数据是从A1开始的。如果将来的数据具有不同的格式，请相应地修改代码
以下是实现该功能的VBA代码：
Sub FindDuplicate()
Dim i As Long, j As Long, k As Long
Dim rng1 As Range, rng2 As Range
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") '指定操作的工作表
For i = 5 To 20 Step 4 '循环遍历每4行数据
Set rng1 = ws.Range("A" & i & ":O" & i) '获取当前行的数据范围
For j = i + 1 To i + 3 '循环遍历当前行的下一行到下三行
Set rng2 = ws.Range("A" & j & ":O" & j) '获取下一行到下三行的数据范围
For k = 17 To 1 Step -1 '从O列开始往前遍历
If rng1.Cells(1, k) = rng2.Cells(1, k) Then '判断是否有重复数字
ws.Range("Q" & i) = rng1.Cells(1, k) '将重复数字放在Q:Z列
ws.Range("R" & i) = rng1.Cells(1, k)
ws.Range("S" & i) = rng1.Cells(1, k)
ws.Range("T" & i) = rng1.Cells(1, k)
ws.Range("U" & i) = rng1.Cells(1, k)
ws.Range("V" & i) = rng1.Cells(1, k)
ws.Range("W" & i) = rng1.Cells(1, k)
ws.Range("X" & i) = rng1.Cells(1, k)
ws.Range("Y" & i) = rng1.Cells(1, k)
ws.Range("Z" & i) = rng1.Cells(1, k)
Exit For '找到一个重复数字就退出循环
End If
Next k
Next j
Next i
'将结果在另一行输出
For i = 4 To 20 Step 4
Set rng1 = ws.Range("Q" & i & ":Z" & i)
Set rng2 = ws.Range("A" & i & ":O" & i)
For j = 1 To 10
If WorksheetFunction.CountIf(rng1, rng2.Cells(1, j)) > 1 Then
ws.Cells(22, j) = rng2.Cells(1, j)
End If
Next j
Next i
End Sub
这个代码首先使用循环遍历每四行数据，对于每一行，再使用循环遍历当前行的下一行到下三行，判断是否有重复数字。如果有重复数字，就将这些数字放在Q:Z列。最后，再遍历每四行数据的结果，统计出重复的数字，并将结果在第22行输出。

求一段excel vba代码

Sub ModifyExcelSheet()
Dim ws As Worksheet
Dim lastRow As Long
' 指定操作的工作表
Set ws = ThisWorkbook.Sheets("Sheet1")
' 1. 给 E 列升序排序
With ws
lastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
.Range("A1:H" & lastRow).Sort Key1:=.Range("E1"), Order1:=xlAscending, Header:=xlYes
End With
' 2. 在 E 列后插入 F、G、H 列并写入文字
ws.Range("F2").Resize(lastRow - 1, 3).Insert Shift:=xlToRight
ws.Range("F2").Value = "Text F"
ws.Range("G2").Value = "Text G"
ws.Range("H2").Value = "Text H"
' 3. 提取 E 列中的数值到 F、G、H 列
ws.Range("F3:F" & lastRow).Formula = "=E3"
ws.Range("G3:G" & lastRow).Formula = "=E3"
ws.Range("H3:H" & lastRow).Formula = "=E3"
' 4. 根据 W 列内容改变表格颜色
Dim cell As Range
For Each cell In ws.Range("W2:W" & lastRow)
Select Case cell.Value
Case "Value1"
cell.EntireRow.Interior.Color = RGB(255, 0, 0) ' 设置为红色
Case "Value2"
cell.EntireRow.Interior.Color = RGB(0, 255, 0) ' 设置为绿色
' 添加其他需要的颜色
End Select
Next cell
' 5. V 列数字改变为数字格式
ws.Range("V2:V" & lastRow).NumberFormat = "0"
' 6. 缩小字体和填充
With ws.Range("A3:H" & lastRow)
.Font.Size = 8 ' 缩小字体
.Interior.Pattern = xlSolid ' 设置填充模式
.Interior.Color = RGB(255, 255, 0) ' 设置填充颜色为黄色
End With
' 7. 在 Sheet2 插入透视表
Dim pt As PivotTable
Dim ptRange As Range
Set ptRange = ws.Range("A1").CurrentRegion ' 假设数据区域从 A1 开始，没有空行和空列
Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws.Name = "Sheet2"
Set pt = ws.PivotTableWizard(SourceType:=xlDatabase, SourceData:=ptRange, TableDestination:=ws.Range("A1"))
pt.TableRange1.Select ' 选中整个透视表
End Sub
示例代码，您需要根据实际情况进行适当的调整
以下是符合你需求的VBA代码：
```
Sub FormatTable()
Dim MyTable As Range
Set MyTable = Range("A1:W100") ' 如果你的表格范围不同，需要自行修改
With MyTable
' 1. 先按照E列升序排序
.Sort key1:=.Columns("E"), order1:=xlAscending, Header:=xlYes
' 2. 在E列后插入三列并写入内容
.Columns("E").Offset(0, 1).Resize(1, 3).Insert
.Range("F2").Value = "提现金额"
.Range("G2").Value = "账户余额"
.Range("H2").Value = "经手人"
' 3. FGH三列中的内容根据E列提取
.Columns("F").Offset(1, 0).FormulaR1C1 = "=RC[-1]"
.Columns("G").Offset(1, 0).FormulaR1C1 = "=R[-1]C + RC[-1]"
.Columns("H").Offset(1, 0).Value = "张三" '这里默认经手人为张三
' 4. 根据W列内容改变表格颜色
For Each Cel In .Columns("W").Cells
Select Case Cel.Value
Case "未处理"
Cel.EntireRow.Interior.ColorIndex = 3
Case "已受理"
Cel.EntireRow.Interior.ColorIndex = 4
Case "已处理"
Cel.EntireRow.Interior.ColorIndex = 5
Case Else
Cel.EntireRow.Interior.Pattern = xlNone
End Select
Next Cel
' 5. V列变更为数字格式
.Columns("V").NumberFormat = "0.00"
' 6. 缩小字体填充
With .Font
.Name = "宋体"
.Size = 9
End With
.Range("A4").Resize(.Rows.Count - 3, .Columns.Count).Interior.Pattern = xlSolid
' 7. 在Sheet2中插入透视表，数据源为Sheet1中的A1:W100
With Sheets("Sheet2").PivotTableWizard
.SourceData = MyTable.Address
.TableDestination = Sheets("Sheet2").Range("A1").Address
.RowGrand = False
.ColumnGrand = False
.CompactLayoutRowHeader = "行"
.CompactLayoutColumnHeader = "列"
.CompactLayoutPageHeader = "页"
End With
End With
End Sub
```
这段代码可以执行你所需要的大多数操作，包括排序、插入列并填充内容、提取数据、改变表格颜色、格式化数字、改变字体和填充、以及插入透视表。需要根据你自己表格的情况稍作修改即可。

excel一个合同内容如何用 vba编程实现自动分多个sheet合同内容？

首先，你要确定的目的，你是想学习VBA，还是仅仅想要解决这个问题
1、如果仅仅想要解决这个问题，建议你找一个会编程的人，
2、如果你想学VBA，请你自已先试道编一下程序 ，然后把遇到的困难说出来，
------根据你的这个文件，编程思路大致如下：
1、新建一个SHEET
2、遍历表格中的每一行，把找到的行写到新的SHEET中，同时进行行计数，到一定行数，再新建一个SHEET，
3。然后接着把其后的行写入到新SHEER中，
4、直至表格中最后一行
先for循环A列是否为表头， 搞完区间后copy 给add新sheet。
可以根据字体编程拆分。
具体详见代码：
Option Explicit
Sub ExpSht()
Dim Fxstr$, arr(), Th$, Shtr, Shts%, Sht$, rng As Range, r%, i%, j%
'记录当前表名称及最大行行号
Th = ActiveSheet.Name
r = Cells(Rows.Count, 1).End(xlUp).Row
'添加公式，获得表头位置
Set rng = Range("F1:F" & r)
'中国太平洋——公司 为可变内容，截图看不清，自行修改
Fxstr = "=IF(A1=" & """" & "中国太平洋——公司" & """" & ",1,"""")"
rng.Formula = Fxstr
Shtr = Application.Transpose(rng)
'将计算公式粘贴成值
rng.Copy
rng.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'计算有多少表
Shts = Application.CountIf(rng, 1)
ReDim arr(Shts)
'将表头所在行记录到数组
For i = 1 To r
If Shtr(i) = 1 Then
j = j + 1
arr(j - 1) = i
End If
Next
arr(Shts) = r + 1
'循环添加表，并根据表头行的数组添加到新表
For i = 0 To Shts - 1
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = i '这里可以根据需要重命名新建的表
Sht = arr(i) & ":" & arr(i + 1) - 1 '新表的范围
Sheets(Th).Rows(Sht).Copy '整行式复制粘贴，保证行高等格式不变
Sheets(Sheets.Count).Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Next
'删除多余的辅助列
Sheets.Select
Columns("F:F").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets(1).Select
End Sub
回答结束，有些内容固定，如Columns("F:F").Select，这可根据实际表格调整

用VBA程式设计如何遍历EXCEL每一个工作表

用VBA程式设计如何遍历EXCEL每一个工作表 这段小程式就把一个EXCEL档案中每个工作表的A1单元格填上了a
Sub tt()
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Cells(1, 1).Value = "a"
Next
End Sub
用VBA程式设计如何连线EXCEL每一个工作表
Private Sub CommandButton1_Click()
Dim ws As Worksheet
For Each ws In Worksheets
MsgBox (ws.Name)
Next
End Sub
EXCEL VBA 如何遍历工作表
Sub test()
For Each c In ActiveSheet.Comments
c.Parent.Interior.ColorIndex = 3
Next
End Sub
vba程式设计如何遍历每一个选择的单元格？
Sub sdk()
i = 1
For Each sc In Selection
sc.Value = i
i = i + 1
Next
End Sub
vb用ado如何遍历excel中所有工作表
1、用VB　开启EXCEL　档案　
2、遍历sheets和cells
Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Private Sub Command1_Click()
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlbook = xlApp.Workbooks.Open("d:\hao\1.xls")
For i = 1 To xlbook.Worksheets.Count
Set xlsheet = xlbook.Worksheets(i)
aa=xlsheet.Cells(1, 1)
Next
End Sub

EXCEL表格里有三个工作表，如何提取每一个表第一行到另一个工作表里
一次完成行吗？
在最末的工作表的A1输入
=INDIRECT("Sheet"&ROW()&"!"&CHAR(64+COLUMN())&1)
回车并向下填充至An（看你的工作表有多少）；
再选A1～An，一起向右填充。
excel表里怎样可以查到每一个工作表
首先按CTRL+F弹出“查询和替换”视窗，然后点窗口里的“选项”，将“范围”一项选为“工作簿”，这样就能在全部工作表中进行查找了。
VBA:如何遍历资料夹下面所有工作簿，然后每个工作簿新增一个新工作表
使用dir可以编列资料夹，一般结构是：
path="d:\xls\"filename=dir(path & "*.xls*")while filename<>"" set wb=workbooks.open(path & filename) wb.sheets.add wb.save wb.close filename=dirwend
如何把一个excel工作表分成两个工作表

excel如何编程 在EXCEL中如何编写程序

1、打开excel软件，点击左上角“文件”。
2、点击选项。
3、在excel选项界面点击自定义功能区，勾选开发工具，点击确定。
4、开启开发工具后就可以在主菜单上看到开发工具选项卡了，需要打开VBA就在开发工具选项卡点击visualbasic即可。
5、写一个简单代码，在VBA窗口选择插入-模块，新建一个模块。点击模块1，在右边编辑框输入代码。
6、代码编写完成后，在Excel界面上点击开发工具--宏--选择名字a--执行，即可执行a代码；运行完成后，A1的内就变成了“这是我的第一个代码”。

如何在EXCEL中进行VBA编程

最简单的VBA编程就是在EXCEL中录制新宏，再稍加修改即可。否则就要通过 工具菜单---宏---Visual Basic编辑器，在编辑器中编辑程序了。
当A1单元格显示为PN，则把sheet2中的A1到C4区域复制到新建的sheet3中的A2到C5区域。如果A1单元格显示DP，则把sheet2中的A1到C1区域的内容复制到新建的sheet3中的A2到C2区域
这个真的没有表述错误吗
这个需要专门学习的
1、首先要打开开发工具选项。详见百度经验《如何打开Excel的“开发工具”工具栏》http://jingyan.baidu.com/album/39810a23c863a4b636fda6d9.html?picindex=1
开发工具栏里面有visual basic 、宏、录制宏等按钮。点击visual basic就可以进行编程了。
2、技巧。VBA语言方便易学，但在excel的控件名称有很多是初学者不熟悉的，所以要借用录制宏功能，由系统帮我们编写大量的代码，我们只做代码优化的工作。录制结束后点开宏，查看这个宏记录的vba代码。
3、使用相对引用功能很重要。对于循环执行的代码，单元格引用的时候就不是固定的range("A1")，而是ActiveCell.Offset(1, 1).range("A1")，这样用变量替换其中数值，就可以循环执行某些语句了。