Sub extractdateincells()
Dim i As Integer, r As Integer, str As String
For Each c In Range("a1:a10")
For i = 1 To Len(c.Value)
If Mid(c.Value, i, 1) = "(" Then
Range("b1:b10") = Mid(c.Value, i + 1, 1)
End If
Next
Next
End Sub
我尝试使用上述代码提取数据,但无法获得所需的答案。
如果我在 cell1 和 cell2 中有king(anil434323)hkd3
和jejrew(3232213)
,那么我需要在下一个单元格中anil434323
得到答案。
我需要做什么来修复我的代码?3232213