求<em>excel</em>大神给编写一个<em>VBA代码</em>

1. 程序算出来正常。

2. 效果如下图所示：

Sub AA()
 Rows("1:6").Select '1:6行复
   X = Rows("1:6").RowHeight
    Rows("1:6").Select
    Selection.RowHeight = X + 8 '行高制+8
End Sub

自己修知改区道域

1、首先打开excel，点击开发工具单击选择插入，之后在下拉的菜单中的表百单中的控件里面选择”按钮“的度图标。

2、然后再弹出内的一个对话框“指定宏”的时候，单机新建的按钮。容

3、这样就进入到Excel的VBA程序宏的编辑界面，进入之后写一个演示宏，然后点击保存。

4、这个时候程序就已经写好了，当点击excel中的按钮的时候会弹出一个hello world的消息提示框。

直接用代码写好了

干嘛填充公式。。。。

Sub test()
'权当两表e799bee5baa6e997aee7ad94e59b9ee7ad94364的数据均在第二行起往下排列，两表的A列末端为数据的最末端
row1 = Range("A65536").End(xlUp).Row
arr = Range("D2:L" & row1)
With Sheet2
    row2 = .Range("A65536").End(xlUp).Row
    brr = .Range("D2:L" & row2)
End With

For i = 1 To UBound(arr, 1)
    If arr(i, 2) <> "" Then
        For j = 1 To UBound(brr, 1)
            If arr(i, 2) = brr(j, 9) Then
                arr(i, 1) = brr(j, 1)
                Exit For
            End If
        Next j
    Else
        For j = 1 To UBound(brr, 1)
            If arr(i, 3) & arr(i, 4) = brr(j, 5) & brr(j, 3) Then
                arr(i, 1) = brr(j, 1)
                Exit For
            End If
        Next j
    End If
Next i
Range("D2:L" & row1) = arr
End Sub