求大神帮忙编写VBA代码-excel编程代码,将excel做成小软件

试试代码行不行zhidao：
Sub 鱼木混猪()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 1 To 700
Range("o3") = "=帮扶干部分配!I" & i
ThisWorkbook.SaveAs Filename:="F:\1当前d处理项目\1扶贫办专\2018年度帮扶明白卡等软件资料\帮扶明白卡669户669张\try1\附件3 精准扶贫结对属帮扶明白卡" & i & ".xls"
Next
Application.ScreenUpdating = 1
Application.DisplayAlerts = 1
End Sub

可以写的，戳头像去数字q

Sub test()
Dim PathB$, CopyPath$, SearchStr$
Dim Rg As Range
PathB = "D:\复制\b.xls"
''B文件路径
CopyPath = "d:\目标文件夹\"
''复制文件夹路径
SearchStr = InputBox("请输入内容", "提示")
''弹出输入框输入内容
If SearchStr = "" Then Exit Sub
''没有输入退出过程
Set Rg = Columns(1).Find(SearchStr, lookat:=xlWhole)
''在现有工作表第一列搜索输入内容
If Rg Is Nothing Then
''如果未搜索到指定内容
MsgBox "未找到输入内容"
''弹出提示
Else
''如果搜索到指定内容
Dim WB As Workbook
Set WB = Workbooks.Open(PathB)
''打开b工作簿
'''将A16的信息复制到Excel15014的AK1:AZ2中；将B16的信息复制到excel15014的
''I5:AA6单元格e79fa5e98193e59b9ee7ad94335中；将D16的信息复制到excel15014的I7:AA8单元格中；将E16的''
''信息复制到excel15014的I9:AA10单元格中等等
with WB.Sheets(1)
.Cells(1, "ak")=rg
.Cells(5, "i")=rg.offset(,1)
.Cells(7, "i")=rg.offset(,3)
.Cells(9, "i")=rg.offset(,4)
end with
On Error Resume Next
''容错处理,文件夹已存在继续执行
MkDir CopyPath & SearchStr
''''在目标文件夹下,建立以搜索内容命名的文件夹B
'On Error GoTo 0
''回到正常错误处理
WB.SaveAs CopyPath & SearchStr & "\" & SearchStr & ".xls", 50
''B文件重命名为搜索内容,并保存在新建的文件夹B
WB.Close True
''保存更改内容并关闭b文件
End If
End Sub
''三个问题回答你三遍,你能不采纳么?

Sub AA()
 Rows("1:6").Select '1:6行来
   X = Rows("1:6").RowHeight
    Rows("1:6").Select
    Selection.RowHeight = X + 8 '行高自+8
End Sub

自己百修度改区问域答