BV7BW

回復 30# samwang
謝謝  S大大
完全符合重整後編號
再次謝謝你  S 大大你勞心指導
謝謝你

BV7BW

回復 30# samwang
  s大大 你好
版本轉到正常使用版本會出現
Arr(i, 11) = Int(Right(Arr(i, 2), 3))   '除了編號S以外，取最後3碼的整數，數值裝入Arr(i,11)
這段錯誤
執行階段錯誤'13'
型態不符合
我改很久.像改儲存格改為文字
一樣不行
請 幫解惑 謝謝 活頁簿1.zip (43.71 KB)

下載次數: 6

2021-4-22 05:44

samwang

回復 32# BV7BW

請在試看看，謝謝。

Sub 復整2()
Dim Arr
With Sheets("工作表3")
      With .Range(.[k1], .[a65536].End(3))
          Arr = .Value    '資料裝入Arr
          For i = 2 To UBound(Arr)
              If Arr(i, 2) = "" Then GoTo 99  '空白就換下一個
              If InStr(Arr(i, 2), "S") Then   '編號有 S
                  Arr(i, 11) = Int(Mid(Arr(i, 2), 4, 3)) & "s"  '編號S，取-以後3碼整數+S，數值裝入Arr(i,11)
              Else
                  Arr(i, 11) = Int(Right(Arr(i, 2), 3))   '除了編號S以外，取最後3碼的整數，數值裝入Arr(i,11)
              End If
99:       Next
          .Value = Arr 'Arr值貼回excel
          .Sort Key1:=.Item(6), Order1:=1, _
          Key2:=.Item(11), Order1:=1, Header:=1 '以F、K欄排序
    End With
      .Range("k1:k" & UBound(Arr)) = ""   '清除K欄數值
End With
End Sub

BV7BW

回復 33# samwang
謝謝 s大大
現在轉至正常使用版以非常順暢使用
謝謝你