0
我在列B中有一個列表，其中包含來自不同市場的訂單ID。
我想在F列的市場名稱。如何計算和識別vba中的單元格的數字和字符串？
識別它們的方法是根據所述字符串的長度（僅一些是數字，一些其它的是數量和連字符，12345 =批發，123-6789123-1210112 =亞馬遜），其他一些特定的字符（例如1234567E = gogo，或1234OB =打開框）。
我想在VBA中做到這一點。
這是我的代碼到目前爲止。
Sub profit()
Dim x As Long
Dim lastrow As Long
lastrow = Sheets("profit april 28 to may 11").Cells(Rows.Count,"b").End(xlUp).Row
For x = 6 To lastrow
If Cells(x, 1) = Cells(x, 2) Then
Cells(x, 6).Value = "wholesale"
Else: x = x + 1
End If
Next x
End Sub
此代碼工作正常，但只有通過比較列A和B值的ID我沒有一個參考的列（如A）的其餘部分給我批發訂單。所以我需要計算字符串上的字符。但是有些字符串長度相同，那麼我需要尋找第二個條件（12345678和1234567E具有相同的長度，但是在一個字符上有所不同）。我想知道如何計算vba中單元格內的字符以及如何在VBA中使用字符串查找特定字符？
Stack Overflow是不適合我的網站代碼。你有什麼嘗試？根據您提供的信息，此問題將被視爲過於寬泛。所以唯一的幫助就是使用帶有ID和相應文本的表格。然後使用Range.Find（）或Application.Match（）函數查找該行並獲取該行中的相應單元格。 –
斯科特，我找到一種方法來查找「批發」訂單，但我試圖添加其他變量卡住了。這是我的代碼到目前爲止.....子利潤（） Dim x As Long Dim lastrow As Long lastrow = Sheets（「profit 4月28日至5月11日」）。Cells（Rows.Count，「b」）如果單元格（x，1）=單元格（x，2）然後單元格（x，6）.Value =「wholesale」 否則：x = x + 1 End If Next x End Sub ......這個特定的訂單ID使用列A作爲參考。但是我沒有相同的參考編號的其餘部分 – DHI
請使用編輯將代碼放在原始文章中。然後具體告訴我們它錯誤地做了什麼，在哪條線上以及您收到什麼錯誤。 –