Question

求VBA代码：在一个工作簿里定位每个工作表多个特定字符同行向右偏移一列的单元格，并输入对应的值。

比如特定字符是“审批人：”，vba自动定位到工作簿里“审批人：”的单元格的右1单元格，并在该单元格输入对应的值：李四。
特定字符有3个
举例：
定位字符 对应的值

截止日： 2016/7/7
编制人： 张三
审批人： 李四

代码运行后效果：
索引号： 4100
编制人： 张三
截止日： 2016/7/7 审批人： 李四
还有一个问题，比如说我的工作簿里的工作表第三行和第四行都有“日期”，我也是想偏移输入值，但是他们的名字都是“日期”，可以补充前面的代码加入：第三行查找到的“日期”偏移值是：2016/7/8，第四行查找到的“日期”偏移值是：2016/7/15。

Answer 1

sub m
for each sh in sheets
for each rn in sh.range("A1:F1000")'根据情况自行修改区域，区域越大，运行时间越久
if rn.value="截止日" then
rn.offset(0,1)="2016/7/7"
elseif rn.value="编制人" then
rn.offset(0,1)="张三"
elseif rn.value="审批人" then
rn.offset(0,1)="李四"
end if
next
next
end sub
默写的代码，没调试，试试可行不

追问

可以了，谢谢~还有一个问题，比如说我的工作簿里的工作表第三行和第四行都有“日期”，我也是想偏移输入值，但是他们的名字都是“日期”，可以补充前面的代码加入：第三行查找到的“日期”偏移值是：2016/7/8，第四行查找到的“日期”偏移值是：2016/7/15。