如何用EXCEL的IF函数自动将上一单元的内容复制到下一单元格中

用筛选命令和"="就可简单实现

选定数据区域 按下自动筛选

选择"代号"的空白

在B3格输入= B2

向下填充拖动

选择全部显示

用函数都要向下填充。

你也太懒惰啦。

在B1输入=INDEX(A:A,SMALL(IF(A$1:A$100<>"",ROW(A$1:A$100),4^8),ROW(1:1)))&""

数组公式，先不要回车，按Ctrl+Shift+Enter结束计算，再向下填充。

可以使用下边的宏,如果有疑问可以pm我

Sub ZNpaste()

Dim mCol, mRow, tarRow

startCol = 1 '原始数据起始列号

endCol = 5 '原始数据终止列号

startRow = 1 '原始数据起始行号

endRow = 5 '原始数据终止行号

tarRow = 1 '复制区起始行号

tarCol = 6 '复制区起始列号

mCondition = 6 '匹配条件,比如等于6

For mRow = startRow To endRow Step 1

For mCol = startCol To endCol Step 1

If Cells(mRow, mCol) = mCondition Then

Range(Cells(mRow, startRow)Address & ":" & Cells(mRow, endRow)Address)Select

SelectionCopy

Cells(tarRow, tarCol)Select

ActiveSheetPaste

tarRow = tarRow + 1

Exit For

End If

Next mCol

Next mRow

End Sub

一,前一列数据无空格,可以双击有公式的填充柄

二,可以先设置最后一行的公式,然后向上拖,这样也很快

三,点第一个要设置公式的单元格,按shift键,再点最后一个设置公式的单元格,输入公式,按Crtl+enter