把一张表里所有公式的引用在相对引用和绝对引用间切换
右击工作表标签——查看代码——粘贴——运行
Sub 相TO绝()
Dim c As Range
For Each c In Cells.SpecialCells(xlCellTypeFormulas)
c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlAbsolute)
Next
End Sub
在第六行你需要的单元格填入
=IF(INDIRECT(ADDRESS(ROW()-1,COLUMN(),1,1))=0,"",INDIRECT(ADDRESS(ROW()-1,COLUMN(),1,1)))
如果第五行是空,就不显示,如果不是空,就显示第五行的数据的绝对引用。
在c6输入公式“=$C$5”,然后向右填充函数就可以了呀
=INDIRECT(CHAR(64+COLUMN(C1))&5)
右拉就是