返回列表 上一主題 發帖

EXCEL VBS

本帖最後由 Hsieh 於 2013-3-1 00:35 編輯

回復 1# kyhuang
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. For Each a In Range([A1], [A1].End(xlDown))
  4.    d(a.Value) = a.Offset(, 1)
  5. Next
  6. For Each a In Range([C1], [C1].End(xlDown))
  7.    If d(Left(a, 8)) = "" Then
  8.    a.Offset(, 1) = "X"
  9.    Else
  10.    a.Offset(, 1) = Replace(a, Left(a, 8), d(Left(a, 8)))
  11.    End If
  12. Next
  13. End Sub
複製代碼
如果使用函數
D1公式
=IF(COUNTIF(A:A,LEFT(C1,8))=0,"X",SUBSTITUTE(C1,LEFT(C1,8),VLOOKUP(LEFT(C1,8),$A$1:$B$11,2,0)))
向下複製
學海無涯_不恥下問

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題