ExcelVBA判断区域中是否有值并输入数据

Sub tfff() ActiveSheet.UsedRange.Interior.ColorIndex = xlNone Rng = Range("a1") Range(Rng).Interior.ColorIndex = 2 Range(Rng).Borders.LineStyle = xlContinuous i = 1 For Each r In Range(Rng) If r.Value = "" Then r.Value = i i = i + 1 End If Next End Sub