如何让相同编码的内容，单价自动等于编码第1次出现对应单价单元格，并且产生公式连...

c1988138

如何让相同编码的内容，单价自动等于编码第1次出现对应单价单元格，并且产生公式连接。
比如A001,F12单元格=F$6单元格价格，其余同理
目前该功能可以得出相同单价，无法产生连接，现在需要能有链接，该如何调整


Sub 相同单价()
  Dim MaxRow As Long: MaxRow = Cells(Rows.Count, 1).End(xlUp).Row
    If MaxRow < 6 Then Exit Sub
  Dim MyDis As Object: Set MyDis = CreateObject("Scripting.dictionary")
  Dim MyFor As Long
    For MyFor = 6 To MaxRow
      If Not MyDis.exists(Cells(MyFor, 1).Value) Then
         MyDis(Cells(MyFor, 1).Value) = MyFor
      Else
         Cells(MyFor, "F").Value = Cells(MyDis(Cells(MyFor, 1).Value), "F").Value
         Cells(MyFor, "G").Value = Cells(MyDis(Cells(MyFor, 1).Value), "G").Value
         Cells(MyFor, "H").Value = Cells(MyDis(Cells(MyFor, 1).Value), "H").Value
         Cells(MyFor, "I").Value = Cells(MyDis(Cells(MyFor, 1).Value), "I").Value
'         Cells(MyFor, "J").Value = Cells(MyDis(Cells(MyFor, 1).Value), "J").Value
'         Cells(MyFor, "K").Value = Cells(MyDis(Cells(MyFor, 1).Value), "K").Value
'         Cells(MyFor, "L").Value = Cells(MyDis(Cells(MyFor, 1).Value), "L").Value
'         Cells(MyFor, "M").Value = Cells(MyDis(Cells(MyFor, 1).Value), "M").Value
'         Cells(MyFor, "N").Value = Cells(MyDis(Cells(MyFor, 1).Value), "N").Value


      End If
    Next MyFor
    MsgBox "OK"

End Sub

c1988138

excel玉米

c1988138

excel玉米 发表于 2023-12-16 13:44

有用的，感谢，还要怎么调整下能产生固定行的符号$。这样就可以竖向拖动不跳行。

excel玉米

c1988138

excel玉米 发表于 2023-12-16 13:44

C:\Users\luoxiaolong01\Desktop\微信截图_20231218140854
现在代码跨表，如果在同一张表里，截图箭头处改了，就运行不下去，并且如果中间随机插入几行，A列不写编码，空白编码行，也会自动生成链接，空白码行不需要产生链接及数值。

c1988138

excel玉米 发表于 2023-12-17 11:38

如果把截图箭头处改为同一张表，就得不出链接了

另外如果在编码行中随意插入几行空白行，就是编码不填行，所谓空白行也会自动等于第1次出现的空白行，其实不需要空白行产生链接。

excel玉米

所有的结果都存在于你提供的基础数表上，如果原基础表有所改动，可能会得不到想要的结果。

c1988138

excel玉米 发表于 2023-12-19 09:49
所有的结果都存在于你提供的基础数表上，如果原基础表有所改动，可能会得不到想要的结果。

老师，还需要怎么调整？没有编码行，就可以不产生链接

excel玉米

用if 语句，当关键位置为空，则不产生公式