[已解决]求公式填充代码。

lyq123d

之前写的可能有点歧义，更改一下：
如何选取A列最后一个非空单元格行数"N"，并将B2单元格中的公式从B2一直填充到B列的"N"行。

最佳答案

月排行榜 / 总排行榜

1032446692

2013-6-17 18:22

n = Sheets("汇总").cells(rows.count,1).End(xlUp).Row

用这个更好一些  
65535 就我所知10的最大函数是这么多行
如果你的数字过大也会报错的

跳转到最佳答案楼层

lyf7276

range("B2")="=A2*12"
range("B2:B"&n).FillDown

lyq123d

lyf7276 发表于 2013-6-9 19:03
range("B2")="=A2*12"
range("B2:B"&n).FillDown

没搞懂你的N是怎么取的值。

其他地方找了一个代码是这样的：
   Dim n As Long
   n = Sheets("汇总").[A65535].End(xlUp).Row
    Range("B2").Select
   ActiveCell.FormulaR1C1 = "= MID(RC[-1],10,3)"     这句是我要的公式
    Selection.AutoFill Destination:=Range("B2:B" & n)

但是填充不了，n的取值应该是没错的，估计是最后一句有问题，但是不知道问题在哪里。

1032446692

lyq123d 发表于 2013-6-9 19:11
没搞懂你的N是怎么取的值。

其他地方找了一个代码是这样的：

没有问题吧  这段代码

lyf7276

range("B2")="=A2*12"
range("B2:B"&n).FillDown
没有附件，不知道你要个什么公式，我上面只是一句代码例子，意思是在B2写入公式后，B2到Bn按照这个公式填充。N是个你想要填充到的行号。

ligh1298

'假如A列数据从A2开始
Sub 提取()
   n = Sheets("汇总").[A65535].End(xlUp).Row
   For i = 2 To n
   Cells(i, 2) = Mid(Range("a" & i), 10, 3)
Next
End Sub

lyq123d

1032446692 发表于 2013-6-9 19:19
没有问题吧  这段代码

  n = Sheets("汇总").[A1048576].End(xlUp).Row

之前那个尝试了很久都不行，后来发现原来我的数据不只有65535行，有70000多行，后来把65535更改成1048576就可以了，具体是为什么我也搞不清楚。

1032446692

n = Sheets("汇总").cells(rows.count,1).End(xlUp).Row

用这个更好一些  
65535 就我所知10的最大函数是这么多行
如果你的数字过大也会报错的