软件:EXCEL
版本:2010
板友好，我最近在尝试写一个简单的EXCEL VBA，碰到了一点问题，
我原先的目的是在工作表A1字段输入资料，接着按下宏键就可以
依照工作表内A1,A2,A3...AN字段这样复制下去，在编写的时候碰到
了困难，想请问这样要怎么解决呢? 谢谢。
Sheets("工作表1").Select
Range("A1").Select
Selection.Cut
Sheets("工作表2").Select
Dim i As Integer
For i = 1 To 10
If Cells(i, 1).Value <> "" Then i = i Else: i = i + 1
Cells(i, 1).Select
ActiveSheet.Paste
Next
我的想法是要让Cells(i, 1).Value的值为空白字段时才会贴上，可是
宏点了后每次我在工作表1的A1字段输入的值都会贴到工作表2中的A2
字段，且接着输入的新资料都会覆蓋到A2的旧资料，而没有照我所想的
从工作表2的A1字段开始贴上，想请教一下这样要如何解决呢?

以上面循环来看是希望工作表2!A1:A10为空白字段的话，就贴工作表1!A1的值吗?

楼上大哥您好 我想说的是我现在工作表A1有个字段可以让我输入资料,接着我按下宏程式会将该资料剪下,并判定工作表2中A1字段是否为空白,如空白就贴上,如果已经有资料就查看A2是否为空白,如果A2空白就贴上该值,依此类推@@ 可能表达的不是很好,抱歉~

http://goo.gl/o37a13 试试

可以了 太感谢您了!另外想请教Find("", [A10])是指说找寻A1-A10当中的空白字段吗?

是的

谢谢~