मैं सेल में एक स्ट्रिंग से 2 वेरिएबल बनाने की कोशिश कर रहा हूं। सेल स्ट्रिंग "मिस्टर जॉनहट्टन स्मिथ सन" है। Value1 मैं "जॉनहट्टन" और मान 2 "स्मिथ सन" के रूप में चाहता हूं। मेरे पास निम्नलिखित कोड हैं लेकिन ठीक से काम नहीं कर रहे हैं। कोई मदद कृपया

value1 = Left(ThirdTable.Rows(10).Cells(2).Range.text, Len(ThirdTable.Rows(10).Cells(2).Range.text) - InStrRev(ThirdTable.Rows(10).Cells(2).Range.text, " "))

value2 = Right(ThirdTable.Rows(10).Cells(2).Range.text, Len(ThirdTable.Rows(10).Cells(2).Range.text) - InStrRev(ThirdTable.Rows(10).Cells(2).Range.text, " ") + 1)
0
RALF 10 अगस्त 2019, 10:02

1 उत्तर

सबसे बढ़िया उत्तर

कोशिश करें:

ss = Split(ThirdTable.Rows(10).Cells(2).Range.Text, " ")

Value1 = ss(1)
Value2 = ss(2) & " " & ss(3)

इसे देखते हुए

ThirdTable.Rows(10).Cells(2).Range.Text आपको Mr Jonhattan Smith Sun देता है

डेमो:

enter image description here


यदि वह अजीब पत्र डेमो उपयोग की तरह आता है:

Value2 = ss(2) & " " & Left(ss(3), Len(ss(3)) - 1)
0
Mikku 10 अगस्त 2019, 11:39