title: How can i find a number after character in VBA?
body: <p>How can I find a numeric number in the same cell after character. For ex After J* find number 01. I will have few rows and inside row some value will J*01 or J*08 im trying separate between character and number using instar in VBA:</p>
  
  <pre><code>Sub zz()
  
    Dim ii As Long, z As Integer, xlastrow As Long
    Dim yy As String
     xlastrow = Worksheets("Sheet1").UsedRange.Rows.Count
        For ii = 1 To xlastrow
          yy = "J*"
           z = 1
         If IsNumeric(Worksheets("Sheet1").Range("B" &amp; ii)) Then
  
    This line separating number after J* character and pasting it to sheet2
  Seprate.Find.Range("B" &amp; ii, yy).Value = Worksheet("Sheet2").Range("A" &amp; z)
            End If
            z = z + 1
        Next ii
  
  End Sub
  </code></pre>