2013-12-01 2 views
1

Мне было интересно, может ли кто-нибудь помочь мне. Я пытаюсь найти и заменить пробелы в книге Excel. Я хочу, чтобы он просматривал текущий лист, в котором я включен в книгу, найдите все экземпляры «» и замените его на «».Найти и заменить в Excel 2011 с помощью Applescript

Неужели кто-нибудь знает, как это сделать?

ответ

4

С Applescript:

searchAndReplaceTextInCells("hello", "world") 

on searchAndReplaceTextInCells(search_str, replace_str) 

    tell application "Microsoft Excel" 

     set search_range to range "A:Z" 
     set all_found_ranges to {} -- store for the ranges, to manipulate after searching 
     set found_range to "" 
     set counter to 0 
     try 
      set found_range to find search_range what search_str with match case 
     on error 
      log ("No matches found") 
     end try 

     if (found_range is not "") then 
      set first_cell_address to (get address of the cells of found_range) -- we use this to break our loop 
      repeat while true 
       set counter to counter + 1 
       copy found_range to end of all_found_ranges 

       -- Now look for next result 
       set found_range to find next search_range after found_range 
       set cell_address to (get address of the cells of found_range) 

       if (cell_address = first_cell_address) then 
        -- have looped around so we are finished! 
        exit repeat 
       end if 
      end repeat 

     end if 

     -- walk all the ranges found and do the string replacing 
     repeat with r in all_found_ranges 
      set value of r to my replace_chars(the value of r, search_str, replace_str) 
     end repeat 

     log ("found and replaced " & counter & " items") 
    end tell 
end searchAndReplaceTextInCells 

on replace_chars(this_text, search_string, replacement_string) 
    set my text item delimiters to the search_string 
    set the item_list to every text item of this_text 
    set my text item delimiters to the replacement_string 
    set this_text to the item_list as string 
    set my text item delimiters to "" 
    return this_text 
end replace_chars 
0

Как насчет Command + F, и нажмите кнопку Заменить, чтобы дать вам это:

enter image description here

+0

Это было бы здорово, но я спрашиваю, как это сделать, используя Applescript, как предлагает название моего сообщения. – Siraris

+0

Но тег [excel] предполагает иное. – pnuts

0

Вы пробовали следующее:

заменить диапазон targetRange какой поискСкрыть замена replaceStr

Это должно быть довольно простое заявление о замене.

Смежные вопросы