基本脚本将检查列中的每个单元格,如果该单元格包含某个值,则将其左侧的单元格更改为另一个值。
所以,像这样:
tell application "Microsoft Excel"
set theRange to find column 3
repeat with x from 1 to 50 -- check the first 50 cells of column 3
if theRange x value = "valid" then -- if the cell value/text is "valid"
set currentValue to theRange x -1 value -- get the value of the previous cell in the same row
set the value of theRange x -1 to currentValue & " paid" -- and append the word "paid"
end repeat
end tell
显然,上面的代码是垃圾,但是希望您能看到我想要的:
检查第3列中的每个单元格(仅使用50行) 如果它具有给定的值,则通过添加单词来更改同一行中的上一个单元格
如果您仅使用Excel,但我想拥有一个脚本,我可以在多个文件上运行而无需对每个工作表进行硬编码,那么我认为这很简单
答案 0 :(得分:1)
此脚本应进行更改。通常建议声明工作表和工作簿,以防止脚本在错误的工作簿或工作表上运行。更改引号之间的值以匹配您的文件,或者如果您不想使用对“ theSheet”的引用,则将其删除。
tell application "Microsoft Excel"
set theSheet to sheet "sheet name" of workbook "workbook name"
repeat with x from 1 to 50
if value of range ("C" & x) of theSheet = "valid" then
set currentValue to (value of range ("B" & x) of theSheet as string) & " paid"
set the value of range ("B" & x) of theSheet to currentValue
end if
end repeat
end tell