[已解决]按行数，自动填充内容

angyangc

请教下，现在想按行数，自动在不同列填充相应的内容，详见附件，谢谢！

最佳答案

月排行榜 / 总排行榜

grf1973

2015-1-27 11:07

1. Sub 宏2()
   
2.     Range("F2:F" & [a65536].End(3).Row) = "英德"
   
3.     Range("G2:G" & [a65536].End(3).Row) = "60㎡以下"
   
4. End Sub

复制代码

跳转到最佳答案楼层

grf1973

没看懂什么意思。自动填充什么东东？

angyangc

grf1973 发表于 2015-1-27 10:58
没看懂什么意思。自动填充什么东东？

Sub 宏2()
'
' 宏2 宏
'

'
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "英德"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "60㎡以下"

    Range("F2:G2").Select
    Selection.Copy

    Range("F2:G27").Select
    ActiveSheet.Paste

End Sub


最终结果是F列填了英德，G列填了60㎡以下，但要是很多行的话，这种录制宏的方法就不适用了，所以想请教怎么遍历和填充！

grf1973

1. Sub 宏2()
   
2.     Range("F2:F" & [a65536].End(3).Row) = "英德"
   
3.     Range("G2:G" & [a65536].End(3).Row) = "60㎡以下"
   
4. End Sub

复制代码

ppp710715

1. Sub Macro1()
   
2.     Dim rw
   
3.     rw = Cells(Rows.Count, 1).End(3).Row
   
4.     Range("f2").FormulaR1C1 = "英德"
   
5.     Range("f2").AutoFill Destination:=Range("f2:f" & rw)
   
6.     Range("g2:g" & rw) = "60㎡以下"
   
7. End Sub

复制代码

suye1010

这种填充要用VBA吗？用自带的填充不就可以了吗？