搜寻表名称相同工作表，复制到范本做合并

cmo9020 · 发表于 2022-12-17 18:12

本帖最后由 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

gwjkkkkk · 发表于 2022-12-17 20:17

请楼主参考附件，请解压后使用。。。

cmo9020 · 发表于 2022-12-17 21:16

gwjkkkkk 发表于 2022-12-17 20:17
请楼主参考附件，请解压后使用。。。

谢谢导师忙里抽空帮忙修改
稍微大概了解一下是按名称下去做导出
谢谢大神您,天气冷了多穿些暖衣~加油

cmo9020 · 发表于 2022-12-20 21:09

gwjkkkkk 发表于 2022-12-17 20:17
请楼主参考附件，请解压后使用。。。

123.rar (133.4 KB, 下载次数: 1)

再次请教导师一下

复制到新工作簿格式都跑掉了，
要保持原有格式不变要怎么修改呢？
1354-263987工作表，里一要是有图片
需要一起复制，有办法一起复制过去新工作簿吗？谢谢

gwjkkkkk · 发表于 2022-12-20 23:48

cmo9020 发表于 2022-12-20 21:09
再次请教导师一下

复制到新工作簿格式都跑掉了，

1.新工作簿按照模板拷贝的，不知道你指的原有格式是什么格式。
2.第2个问题已解决。。。

cmo9020 · 发表于 2022-12-21 07:07

gwjkkkkk 发表于 2022-12-20 23:48
1.新工作簿按照模板拷贝的，不知道你指的原有格式是什么格式。
2.第2个问题已解决。。。

123.rar (138.59 KB, 下载次数: 3)

导师谢谢您帮忙
我指的原有格式是说
像1355-6329017，有黑粗线、框的大小，
我自己在       If Not Rng Is Nothing Then
         Rng.Copy .[A15]
      End If
这段弄好久,都产生错误，能在帮忙修改一下吗？谢谢

gwjkkkkk · 发表于 2022-12-21 17:40

cmo9020 发表于 2022-12-21 07:07
导师谢谢您帮忙
我指的原有格式是说
像1355-6329017，有黑粗线、框的大小，

搞不定啊。。。

cmo9020 · 发表于 2022-12-21 19:15

gwjkkkkk 发表于 2022-12-21 17:40
搞不定啊。。。

啊...Q搞不定啊,好八...失望,谢谢导师

cmo9020 · 发表于 2022-12-30 21:28

本帖最后由 cmo9020 于 2022-12-30 21:33 编辑

gwjkkkkk 发表于 2022-12-21 17:40
搞不定啊。。。

123.rar (135.25 KB, 下载次数: 3)

导师谢谢您帮忙
在多请教您一下，在范本加入下面代码'隐藏工作表

Private Sub Worksheet_Activate()
Sheet2.Visible = xlSheetHidden
Sheet3.Visible = xlSheetHidden
Sheet4.Visible = xlSheetHidden
Sheet5.Visible = xlSheetHidden
Sheet6.Visible = xlSheetHidden
Sheet7.Visible = xlSheetHidden
Sheet8.Visible = xlSheetHidden
End Sub

执行运行变成无法复制，在请您帮忙一下
需求
1.平常工作表都是隐藏，只有范本显示
2.在B4输入工作表名称，自动转跳打开隐藏中的工作表
执行运行可以复制

在麻烦导师帮忙~谢谢您

		自动登录	找回密码
密码			免费注册

[已解决] 搜寻表名称相同工作表，复制到范本做合并

评分

评分