|
|
本帖最后由 cmo9020 于 2022-12-17 21:16 编辑
123.rar
(120.71 KB, 下载次数: 5)
请教各位大神们
“范本”填写完后，有两个问题解决不了
1.编号(反黄色) 搜寻表名称相同工作表，把第15列以下内容全复制到范本做合并
一键导出表格数据生成新工作簿
因为每一个编号表格第15列以下都不相同，好像只能这样做
还是我逻辑有点奇怪.....不知道该怎么做才好
2.另外设置一个导出资料到 A活页夹里面的 数据表
设置目前代码是这样,不知道为什么都不进去
在麻烦请大神们看一下要怎么运行，谢谢~天冷关心您
Sub SS_Details()
Dim Sh As Worksheet
Dim shCountry As Worksheet
Dim shForm As Worksheet
Dim iCurrentRow As Integer
Set shForm = ActiveSheet
Workbooks.Open ThisWorkbook.Path & "\A\数据.xlsx"
Set shCountry = ThisWorkbook.Sheets("数据表")
iCurrentRow = shCountry.Range("B" & Application.Rows.Count).End(xlUp).Row + 1
With shCountry
.Cells(iCurrentRow, 2) = shForm.Range("H3")
.Cells(iCurrentRow, 3) = shForm.Range("C11")
.Cells(iCurrentRow, 4) = shForm.Range("B3")
.Cells(iCurrentRow, 5) = shForm.Range("B4")
.Cells(iCurrentRow, 6) = shForm.Range("E4")
.Cells(iCurrentRow, 7) = shForm.Range("E3")
.Cells(iCurrentRow, 8) = shForm.Range("E8")
.Cells(iCurrentRow, 9) = shForm.Range("G7")
.Cells(iCurrentRow, 10) = shForm.Range("C9")
.Cells(iCurrentRow, 12) = shForm.Range("C10")
.Cells(iCurrentRow, 13) = shForm.Range("I12")
.Cells(iCurrentRow, 14) = shForm.Range("I10")
.Cells(iCurrentRow, 15) = shForm.Range("E10")
.Cells(iCurrentRow, 16) = shForm.Range("G8")
.Cells(iCurrentRow, 17) = shForm.Range("E11")
.Cells(iCurrentRow, 18) = shForm.Range("C12")
End With
' shForm.Range("H7, H9, H11, H13, H15").Value = ""
MsgBox "OK!"
End Sub
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2022-12-17 18:12
楼主
