Question

excel用vba将A1：A10区域中的值依次赋给单元格B1

各位excel大师们：
我想将A1：A10中的数值依次赋值给B1后，每赋值一次，执行一次命令 “ Application.Run "筛选" "，直到A1：A10的值全部赋值完，VBA语句该怎么写啊？
谢谢大家了！！！！！！！！

Answer 1

sub a()
for i=1 to 10
    [b1]=cells(i,1)
    application.run
next
end sub

追问

谢谢你，请问我要将U2：U40的值赋值给B1，前面怎么改，谢谢

追答

sub a()
for i=2 to 40
    [b1]=cells(i,"U")
    application.run
next
end sub

Answer 2

不明白你的筛选是什么意思

追问

我录制宏的名字

追答

这不是关键，你要说出你这个“筛选”宏它要起到什么作用，或者说它要实现什么功能。