在Excel 2011中使用Applescript查找和replace

我想知道有没有人能帮助我。 我试图find并replaceExcel工作簿中的空格。 我希望它在工作簿中search当前工作表，find“”的所有实例并将其replace为“”。

有谁碰巧知道如何做到这一点？

Answer 1

用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 

Answer 2

怎么样Command + F，并点击replacebutton给你这个：

Answer 3

你有没有尝试过以下内容：

replace范围targetRange什么searchStrreplacereplaceStr

这应该是比较直接的替代声明。