需两小段EXCEL宏语句

1，假设ShEET1第H列，从H3起有若干数据，需要把这些数据原样复制在最后一个数据的下面。2，假设ShEET1第H列，需按条件填充数据，限定如下:第H列单元格为空，左侧列单元格不为空，右侧第二列单元格不为空，同时满足以上三条件，则为其取ShEET2中A1的值。

1.
Sub Macro1()
   Dim CellsCount As Integer

   CellsCount = Range("H65536").End(xlUp).Row
   For i = 3 To CellsCount
       Cells(CellsCount + i - 2, 8) = Cells(i, 8)
   Next
End Sub

2.
Sub Macro2()
   Dim CellsCount As Integer

   CellsCount = Range("H65536").End(xlUp).Row

   For i = 1 To CellsCount
       If Cells(i, 8) = "" And Cells(i, 7) <> "" AndCells(i, 10) <> "" Then
           Cells(i, 8) = Worksheets("Sheet2").Range("A1")
       End If
   Next

End Sub 


你知道代码加在哪不？

sub a() k = selection.column for i = 1 to sheet1.usedrange.rows.count if sheet1.cells(i, k) = "" and sheet1.cells(i, k + 1) <> "" then sheet1.cells(i, k).numberformatlocal = "0.00" sheet1.cells(i, k) = "0.00" end if next end sub 用鼠标在所需列的任意单元格点一下（或者选择整列亦可），然后运行宏a即可