[已解决]函数求助

网络人

将另外工作表名称全部引用过来另外一个工作表的函数

最佳答案

月排行榜 / 总排行榜

windyjw007

2017-10-19 10:11

数组公式，CTRL+SHIFT+ENTER结束！{:3512:}

1. =IFERROR(INDEX(Sheet1!B:B,SMALL(IF(Sheet1!B$8:B$49<>"",ROW($8:$49)),ROW(A1))),"")

复制代码

跳转到最佳答案楼层

windyjw007

数组公式，CTRL+SHIFT+ENTER结束！{:3512:}

1. =IFERROR(INDEX(Sheet1!B:B,SMALL(IF(Sheet1!B$8:B$49<>"",ROW($8:$49)),ROW(A1))),"")

复制代码

yanhj

Private Sub CommandButton1_Click()
n = 1
For i = 1 To Sheets(1).Range("B65536").End(xlUp).Row
   If Sheets(1).Cells(i, 2) <> "" Then
     Sheets(2).Cells(n + 2, 2) = Sheets(1).Cells(i, 2)
     n = n + 1
   End If
Next
End Sub

网络人

windyjw007 发表于 2017-10-19 10:11
数组公式，CTRL+SHIFT+ENTER结束！

如果数据有删掉，单元格值不变动，还有会写入重复的数据

网络人

windyjw007 发表于 2017-10-19 10:11
数组公式，CTRL+SHIFT+ENTER结束！

这个函数如果工作表SHEET1有删掉的单元格就计算不了