求助将一个表的数据提取写入另一个表里面，愁得睡不着觉啊

lxg315

ykcbf1100 发表于 2023-3-9 16:36
那应该是版本问题了吧。
workbookopen是现在常用的打开文件的方式，以前是用GetObject来打开的。你可以 ...

了解，这个我后面再修改

ykcbf1100

lxg315 发表于 2023-3-9 16:46
了解，这个我后面再修改

明天再看一下吧。

lxg315

ykcbf1100 发表于 2023-3-9 16:58
明天再看一下吧。

嗯，多谢多谢，现在手工挑数据实在是有点恼火啊

lxg315

ykcbf1100 发表于 2023-3-9 16:58
明天再看一下吧。

晚上我想了一下，这样变通一下是不是更方便于编程：

1：如下图片所示，在将表1的41这个尺寸的测量值41.004填入报告的同时，将41这个尺寸左边的“距离1-X距离”也l填写到报告表的右边，所以报告表Sample(1)这列填完后，对应表格右边也有1列内容
2：再用报告表右边这列的文字内容去匹配表2“内容”这一列，匹配上了就提取表2里面“#1”这列的测量数据填写到报告里面Sample(2)这一列
3：以此类推，用报告表右边这列的文字内容去匹配表N“内容”这一列，匹配上了就提取表N里面“#1”这列的测量数据填写到报告里面Sample(N)这一列

ExcelHomeFM

楼主吧问题复杂化了,其实很简单
1.获取需求尺寸清单（楼主黄色标识的）

Sub 获取需求尺寸清单() '参考
    Dim arr
   
    Cells.Find("OK/NG").Resize(2, Columns.Count).Delete'方便操作，取完数据后关闭不保存
   
    [a8].CurrentRegion.AutoFilter Field:=2, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor
    [a8].CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
   
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    arr = [a1].CurrentRegion
End Sub

2.根据步骤1获取的清单(内容）列是不重复的,抓取剩余所有样品的测量数据。
    最终得到类似如下数据。
     a) 4# 样品有一个没有数据
     b) 5#\6#两个样品测量数据相同？
     Range("M2") ==B2&"-"&COUNTIF(B$2:B2,B2) 向下填充 （此公式生成尺寸Dimension唯一标识。58-1，58-2 ......)
   
3.在根据步骤2得到的数据,匹配填入SIR工作表中，完工！
     a) SIR Range("M8") =B8&"-"&COUNTIF(B$8:B8,B8) 向下填充 （此公式生成尺寸Dimension唯一标识。58-1，58-2 ......)
     b) SIR Range("E8") =IFERROR(INDEX(Sheet2!$A$1:$M$27,MATCH($M8,Sheet2!$M$1:$M$27,0),MATCH(E$7,Sheet2!$A$1:$M$1,0)),"") 向右向填充
     c) 转换为数值,并清除SIR Range("M8:M50")
     d) 填充其余尺寸数据

备注：
1.建议规范原始测量数据源，从根本解决问题。尺寸编号做唯一标识FAI58_1,FAI58_2 ...... 方便数据整理和检查
2. 不建议SIR 插入列,影响美观
全部代码就不写了，
请根据实际情况使用。
以上请参考。

lxg315

M兄这个对的，再将提取的数据写入报告表就基本实现我的要求了，谢谢您的建议

要是有个完整的代码就好了，还是很感谢您提供的思路。

lxg315

ExcelHomeFM 发表于 2023-3-10 00:35
楼主吧问题复杂化了,其实很简单
1.获取需求尺寸清单（楼主黄色标识的）

5和6数据是拷贝过来的，就是想看看在原表格上再插入一列，实现提取6列数据，因为数量样品不定，有时候是多于报告表的5列的