Range的操作 dim r as range '循环查找全部数据区域(UsedRange)中的每一个单元格 for each r in activesheet.usedrange if r = "查询值" then 'r.区域.范围(第一行,第一列).移动(下移1行,右移4列).值 = "结果" r.currentregion.resize(1,1).offset(1,4).value = "结果" exit for end if Next