EXCEL VBA 编写求助

我是用

Dim i, o As Integer
i = 1
o = Sheet21.Cells(2, 11)

If o = 1 Then
While i < 43
Sheet21.Cells(3 + i, 4) = Sheet21.Cells(3 + i, 3)
Sheet21.Cells(3 + i, 9) = Sheet21.Cells(3 + i, 8)
i = i + 1
Wend
End If

End Sub

来实现表21之间2列间的复制的.

现在要实现以下目的: 当o=1时 表Sheet21.Cells(3 + i, 4) = Sheet21.Cells(3 + i, 3) .Sheet21.Cells(3 + i, 9) = Sheet21.Cells(3 + i, 8) 空值要跳过.

用

If Sheet8.Cells(19, 2 + i) <> "" Then

实现 可我不知道怎么添加进去..

[em11][em11]

同时表8第13行要复制到表8第1行.

当o=2时 表21不进行操作 表8第13行复制到表8第2行

……………………

当o=12时 表21不进行操作 表8第13行复制到表8第12行

请各位大侠帮忙写段代码。

EXCEL VBA 编写求助 在Excel中用VBA编写一个程序 关于excel中vba宏的编写 excel中用vba编写限制excel使用次数的代码 vba excel excel vba EXCEL VBA excel VBA Excel VBA 怎样编写EXCEL中VBA的宏？要自动的排列完成一下任务