[حل شده] پیدا کردن کلمات boldَ شده و انتقال آنها به ستون مجاور

[neo2009]

با سلام و عرض خسته نباشید
من تو اکسل در ستون A یه متن فارسی دارم که بین یک تا 3 کلمش bold شده هست
حالا میخوام در ستون B اون متن بیاد ولی بجای کلمات bold شدش ..... بیاد و در ستون C فقط اون کلمات bold شده بیاد
تو انجمن گشتم درموردش موضوعی نبود اساتید میشه راهنمایی کنید ؟

[مرتضی حسینی]

دوست عزیز این کار مشکلیه هر جیزی هم از اکسل بر نمیاد به هر حال اگر فایل نمونه بزارید دوستان زودتر پاسخ خواهند داد یا کلا برای مشکل شما راه حل دپگری پیشنهاد کنند .
در این مورد خاص اگه تمام کلمات bold شما مثلا کلمه دوم یا چهارم جمله باشند با text to colume میشه یه کاریش کرد
لطفا فایل نمونه بزارید
حسینی 97/12/6

[smartman]

این کار توی word به راحتی انجام میشه؛ به این صورت که بعد از کپی متن به word ابتدا Ctrl+F را بزنید تا پنجره Find and Replace باز بشه -در نسخه ۲۰۱۶ و بالاتر قاب ساده جستجو «Navigation» در سمت چپ یا راست ظاهر میشه که در این حالت با کلیک روی فلش رو به پایین کنار علامت ذرهبین و باز شدن منو، Advanced Find... را بزنید.- در پنجره باز شده روی More>> بزنید سپس روی Format و به روی Font حالا چون متن شما فارسی است از کشوی Font Style اول گزینه Bold را انتخاب کنید و بعد Ok کنید. حالا روی Find In و بعد Main Document کلیک کنید. حالا پنجره Find and Replace را ببندید. نوشتههای bold انتخاب شدهاند. با Ctrl+C کپی کنید و در فایل جداگانه پیست کنید. دوباره پنجره Find and Replace را باز کنید اینبار به سر برگ Replace رفته و متن جایگزین را در Replace With وارد کنید حالا Replace All را بزنید و کار تمام...

[neo2009]

دوست عزیز این کار مشکلیه هر جیزی هم از اکسل بر نمیاد به هر حال اگر فایل نمونه بزارید دوستان زودتر پاسخ خواهند داد یا کلا برای مشکل شما راه حل دپگری پیشنهاد کنند .
در این مورد خاص اگه تمام کلمات bold شما مثلا کلمه دوم یا چهارم جمله باشند با text to colume میشه یه کاریش کرد
لطفا فایل نمونه بزارید
حسینی 97/12/6

سلام این فایل نمونه خدمت شما. تعداد جملاتی که میخوام این کار روش صورت بگیره بسیار زیاده نزدیک 4000 جمله و بصورت دستی کار بسیار زمان بریه . این کارو واسه جدول لایتنر میخوام .

Book1.xlsx

- - - Updated - - -

این کار توی word به راحتی انجام میشه؛ به این صورت که بعد از کپی متن به word ابتدا Ctrl+F را بزنید تا پنجره Find and Replace باز بشه -در نسخه ۲۰۱۶ و بالاتر قاب ساده جستجو «Navigation» در سمت چپ یا راست ظاهر میشه که در این حالت با کلیک روی فلش رو به پایین کنار علامت ذرهبین و باز شدن منو، Advanced Find... را بزنید.- در پنجره باز شده روی More>> بزنید سپس روی Format و به روی Font حالا چون متن شما فارسی است از کشوی Font Style اول گزینه Bold را انتخاب کنید و بعد Ok کنید. حالا روی Find In و بعد Main Document کلیک کنید. حالا پنجره Find and Replace را ببندید. نوشتههای bold انتخاب شدهاند. با Ctrl+C کپی کنید و در فایل جداگانه پیست کنید. دوباره پنجره Find and Replace را باز کنید اینبار به سر برگ Replace رفته و متن جایگزین را در Replace With وارد کنید حالا Replace All را بزنید و کار تمام...

ممنون از راهنماییتون ولی چون این کار رو برای نرم افزار لایتنر میخوام فرمت باید اکسل باشه که یک ستون جملاتی که بجای لغتای بلد شده .... باشه و ستون کناریش اون لغات بلد شده باشه
این کاری ک شما گفتید تو وورد جواب میده اما اکسل خیر
بازم ممنونم از شما

[smartman]

خب دوباره کپی کنید به اکسل کاری نداره...

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید

Sub test()

k = 1

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For j = 1 To z1

For i = 1 To Len(Range("A" & j))

  If Range("A" & j).Characters(Start:=i, Length:=1).Font.FontStyle = "Bold" Or Mid(Range("A" & j), i, 1) = " " Then
  
  If Range("A" & j).Characters(Start:=i, Length:=1).Font.FontStyle = "Bold" Then
   
  xx = xx & Mid(Range("A" & j), i, 1)
  
  t = True
  
  ElseIf Mid(Range("A" & j), i, 1) = " " And t = True Then
  
  xx = xx & Mid(Range("A" & j), i, 1) & Chr(10)
  
  t = False
  
  End If
  
   End If
   
  Next
     
   Range("d" & k) = xx
   
   k = k + 1
   
   xx = ""
        
   Next
   
End Sub 

[neo2009]

با سلام

فایل پیوست را بررسی بفرمایید

Sub test()

k = 1

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For j = 1 To z1

For i = 1 To Len(Range("A" & j))

  If Range("A" & j).Characters(Start:=i, Length:=1).Font.FontStyle = "Bold" Or Mid(Range("A" & j), i, 1) = " " Then
  
  If Range("A" & j).Characters(Start:=i, Length:=1).Font.FontStyle = "Bold" Then
   
  xx = xx & Mid(Range("A" & j), i, 1)
  
  t = True
  
  ElseIf Mid(Range("A" & j), i, 1) = " " And t = True Then
  
  xx = xx & Mid(Range("A" & j), i, 1) & Chr(10)
  
  t = False
  
  End If
  
   End If
   
  Next
     
   Range("d" & k) = xx
   
   k = k + 1
   
   xx = ""
        
   Next
   
End Sub 

معرکه معرکه معرکه
هرچقد تشکر کنم کم گفتم
مرسی استاد