Question

excel vba 关于

大神大神，救救我，昨天您回答了我的提问“
excel vba 识别数据处于第几行并使用改行所含有的数据进行下一步操作， 代码怎么写啊
”，太感谢了，注解得非常清楚，非常感谢。但估计是我叙述得不清晰不明了，您写的代码无法完成需求诶，能不能麻烦您再帮我写下呢，我小白一个，刚开始接触这个东西，想学习学习，模仿下怎么写的。非常非常感谢了。下面我再详细叙述下要求，实在是麻烦您了。

我现有2个excel文件A和B，A文件里表格内容类似上图那样，B文件是个模板。现在完成的步骤如下：
1.用户在弹出的对话框中输入A文件中A列中的任意数字x（比如输入的数字为A5单元格的“5”）；2.自动创建一个文件夹，并以用户输入的的A列中的数字x命名（即创建文件夹名并命名为“5”）；
3.复制另一个现有的excel模板B文件到上一步新建的x文件夹中，改名为A列中的数字x（即复制excel文件B到文件夹“5”下，并命名为“5”）4. 打开新命名excel文件x；自动识别输入的数字是A文件中A列的哪一行以后，复制此行的B,C,D,E,....列的数据或者信息到新excel文件x中所规定好的单元格中（比如识别出输入的数字是A文件中的第五行以后，将B5“MM”复制到新excel文件5中的A1单元格中，将C5“NN”复制到新excel文件5中A2单元格等等依此类推；同理如果第一步输入的数据是A3的“3”，那相应的复制B3，C3，D3...等所对应的数据或者信息到excel文件3中所对应的单元格内）；5. 保存并关闭新excel文件x（即保存并关闭excel文件5或者3）。

大神谢谢了，麻烦您了。





Answer 1

Sub test()
Dim PathB$, CopyPath$, SearchStr$
Dim Rg As Range
PathB = "D:\复制\b.xls"  ''修改成你的B文件路径
''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工作簿
Rg.Offset(, 1).Resize(, 3).Copy WB.Sheets(1).Cells(1, 1)
''搜索到的单元格的对应行bcd列复制到b工作簿的第一个表的单元格A1
On Error Resume Next
''容错处理,文件夹已存在继续执行
MkDir CopyPath & SearchStr
''''在目标文件夹下,建立以搜索内容命名的文件夹B
WB.SaveAs CopyPath & SearchStr & "\" & SearchStr & ".xls", 50
''B文件重命名为搜索内容,并保存在新建的文件夹B
WB.Close True
''保存更改内容并关闭b文件
End If
End Sub
''记得采纳

Answer 2

200分献上来。我就帮你

Answer 3

文件发我看。

Crazy0qwer@qq.com

Answer 4

excel vba问题帮解决