返回列表 上一主題 發帖

[發問] 判斷儲存格內有幾個字元,並以兩個為單位排列

  1. Sub yy()
  2.     Dim x$, w$, i%, j%
  3.     For j = 1 To [b65536].End(3).Row
  4.     w = Mid(Cells(j, 2), 3)
  5.     For i = Len(w) To 2 Step -2
  6.    x = IIf(x = "", Mid(w, i - 1, 2), x & "-" & Mid(w, i, 2))
  7.     Next
  8.     Cells(j, 3) = x
  9.     x = ""
  10.     Next
  11. End Sub
複製代碼

TOP

經過測試
他會變成
0x1234   43-23

這是否有環節上有問題??
a703130 發表於 2012-3-13 11:55



修正一下

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題