问题补充说明：Excel中a1＝a3～a10中任意一个比如a1等于a5把b1的值设定到b5求高手... Excel中 a1 ＝ a3～a10 中任意一个比如 a1 等于 a5把b1的值 设定到 b5求高手 展开
1234567891011Private Sub Worksheet_Change(ByVal Targe360问答t As Range)'如果A3-A10中的数不重复,如果有重复则用do while做循环结合findnext查找Dim rng1 As RangeIf Target.Address <> "太来好套轻东不剧$A$1" Then Exit SubSet rng1 = Sheet1.席脱技Range("A3:A23").Find(Sheet1.Range("A1").Value, looka领说取t:=xlWhole今今装敌轴问德气)If Not rng1 Is Nothing Then Sheet1.Range("B1").Value = Sh达次失纪燃车eet1.Range("B" & rng1.Row).ValueEls科事概肉显令烈e Sheet1.Range("B1").殖更宜厂解训第体家Value = ""End IfEnd Sub
标签：excel,公式
版权声明：文章由 神舟问 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.shenzhouwen.com/article/327415.html
