Question

如何在excel下用宏实现如下功能！谢谢





Answer 1

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Set Sh = Target.Parent
    If Sh.Name = "工作表3" Or Sh.Name = "工作表2" Then
        If Target.Column = 1 And Target.Count = 1 And Target = "V" Then
            R = Sheets("工作表1").Cells(Rows.Count, 1).End(3).Row + 1
            Sheets("工作表1").Cells(R, 1).Resize(, 3) = Target.Offset(, 1).Resize(, 3).Value
        End If
    End If
End Sub

代码复制到thisworkbook中

Answer 2

Sub test()
row1 = Range("B65536").End(xlUp).Row
arr = Range("A1:D" & row1)
For i = 1 To UBound(arr)
    If arr(i, 1) = "V" Then
        brr = Array(arr(i, 2), arr(i, 3), arr(i, 4))
        With Sheets("工作表1")
            row2 = .Range("A65536").End(xlUp).Row + 1
            .Range("A" & row2 & ":C" & row2) = WorksheetFunction.Transpose(WorksheetFunction.Transpose(brr))
        End With
    End If
Next
MsgBox "打完收工！"
End Sub

追问

大神不能用啊

谢谢

追答

在VBA编辑窗口按F5键即可运行这段代码
也可以在工作表3插入一个按钮来运行
EXCEL2010要另存类型为：“EXCEL 启用宏的工作簿”

追问

可以了！可以一次把工作表2和3的数据一起填入吗