vba学习中，有个问题想请教各位大佬，请各位大佬帮帮忙

zscaa

如图，需要从sheet1中（图1）读取数据写到sheet2（图2）中，但是当sheet1中有重复型号时（标黄色区域）需要弹出一个选择框来给人选择，该怎么做？麻烦各位大佬帮一下忙

砂海

㈠需要从sheet1中（图1）读取数据写到sheet2（图2）中，㈡但是当sheet1中有重复型号时（标黄色区域）需要弹出一个选择框来给人选择，该怎么做？

附件里 什么 代码都没有 ,
所以 不是 ㈡但是...  的问题,
是 ㈠需要..  都没解决

zscaa

砂海 发表于 2023-3-2 15:29
㈠需要从sheet1中（图1）读取数据写到sheet2（图2）中，㈡但是当sheet1中有重复型号时（标黄色区域）需要弹 ...

额，传错文件了代码如下，附件已经更新了，请问该怎么实现？

Sub 匹配工单()
   Dim inh As Worksheet
   Dim oh As Worksheet
   Dim inRn, outRn
   Dim inStyCol, inWorkCol, inStyRow
   Dim outStyRow, outWorkCol
   Dim i
   Dim icount
   Dim str
   Set inh = Sheets("Sheet1")
   Set oh = Sheets("Sheet2")

   Set outRn = oh.Cells.Find(what:="工单", LookIn:=xlValues, lookat:=xlPart)
   outWorkCol = outRn.Column

   Set inRn = inh.Cells.Find(what:="产品型号", LookIn:=xlValues, lookat:=xlPart)
   inStyCol = inRn.Column
   inStyRow = inRn.Row

   Set outRn = inh.Cells.Find(what:="工单", LookIn:=xlValues, lookat:=xlPart)
   inWorkCol = outRn.Column

   For i = inStyRow + 1 To inh.Range("a65526").End(xlUp).Row
      str = inh.Cells(i, inStyCol)
      icount = Application.WorksheetFunction.CountIf(oh.Cells, str)
      If icount > 0 Then
         Set outRn = oh.Cells.Find(what:=str, LookIn:=xlValues, lookat:=xlPart)
         oh.Cells(outRn.Row, outWorkCol) = inh.Cells(i, inWorkCol)
      End If

   Next i
End Sub

zscaa

砂海 发表于 2023-3-2 15:29
㈠需要从sheet1中（图1）读取数据写到sheet2（图2）中，㈡但是当sheet1中有重复型号时（标黄色区域）需要弹 ...

大佬在不？请问这个该怎么做啊？