Men Excel VBA-da satrlardan iborat katak ustunini tahlil qilmoqchiman, har bir hujayrada quyidagilar mavjud:
2 '␂'
Men bu katak mazmunini faqat 2 ta (yoki “satr” dan oldingi har qanday raqamli belgilardan iborat bo‘lishi uchun o‘zgartirmoqchiman. Bunday ma’lumotlarni tahlil qilishning eng oson usuli qanday bo‘lardi? Rahmat.
Agar formatga ishonchingiz komil bo'lsa, ' (apostrof) oldidan qatorni toping va hujayra qiymatini o'zgartiring. Agar siz ushbu qiymatga ega bo'lgan hujayrada bo'lsangiz, quyidagi VBA kodidan foydalaning.
activecell.text = mid(activecell.text, 1, instr(1, activecell.Text, "'")-1)
U apostrofni qidiradi va undan oldingi belgilarni ajratib oladi va uni joriy katakchaga joylashtiradi.
Raqamli ma'lumotlar har doim katak boshida bo'ladi deb hisoblasak, siz Regex-dan qatorning boshida har qanday ketma-ket raqamlarni topish uchun foydalanishingiz mumkin, u birinchi raqamli bo'lmagan belgilarga tegsa, to'xtatiladi. Mana buni siz uchun bajaradigan funksiya, bu yordam beradi deb umid qilaman. ^ katakning boshlanishini bildiradi va (\d+) bir yoki bir nechta raqamli belgilarni va .* belgisidan keyin nol yoki undan ortiq belgilarni bildiradi. Sizga kerak bo'lgan raqamlarning faqat bitta qatori bor deb o'ylayman, shuning uchun menda regex faqat submatch 0 ni qaytaradi (birinchi o'yin).
Function ExtractNumericData(ByVal text As String) As String
Application.ScreenUpdating = False
Dim allMatches As Object
Dim RE As Object
Set RE = CreateObject("vbscript.regexp")
RE.Pattern = "^(\d+).*"
RE.Global = True
Set allMatches = RE.Execute(text)
ExtractNumericData = allMatches.Item(0).submatches.Item(0)
Application.ScreenUpdating = True
End Function
