求助VBA专家-如何把号码自动按照自己的速度值填在所在表格里面

motos123456789

如何把号码自动按照自己的速度值填在所在表格里面 VBA怎么写，谢谢！

feiyingdpm

见附件，按实际需求自己改吧

lovemh1987

Sub find()
Dim c, i
With Worksheets(1).Range("b5:o31")
  For i = 1 To 14
    Set c = .find(Cells(4 + i, "r"), LookIn:=xlValues)
    If Not c Is Nothing Then
      Cells(4 + i, "s") = Cells(c.Row, 1)
    End If
   Next
End With
End Sub

motos123456789

feiyingdpm 发表于 2019-12-16 04:50
见附件，按实际需求自己改吧

谢谢阁下的教导，但是结果不是我想要的，我是想把“R栏“里面的号码按照速度值自己掉进B5到O31范围里面。可以吗？我是每次自己把号码打进去。非常苦恼。

motos123456789

lovemh1987 发表于 2019-12-16 07:33
Sub find()
Dim c, i
With Worksheets(1).Range("b5:o31")

谢谢阁下的教导，但是看不到任何效果。

lovemh1987

motos123456789 发表于 2019-12-16 12:39
谢谢阁下的教导，但是看不到任何效果。

好吧  我自己这里运行的没问题

Yalishanda30

motos123456789 发表于 2019-12-16 12:39
谢谢阁下的教导，但是看不到任何效果。

附件供参考

motos123456789

"Yalishanda30" 感谢指导，但如果要搞成我表格里面黄色方格显示为号码，VBA怎么去编写？？

motos123456789

lovemh1987 发表于 2019-12-16 13:37
好吧  我自己这里运行的没问题

感谢阁下回覆

Yalishanda30

motos123456789 发表于 2019-12-16 16:13
"Yalishanda30" 感谢指导，但如果要搞成我表格里面黄色方格显示为号码，VBA怎么去编写？？

附件供参考