请excel高手帮忙看一下数据很多,不用复制粘贴,而用公式或者函

　　用函数来完成有难度，而且数据量多的话速度不是很理想，用A帮你写了一个，你试一下效果，点“分拣数据”按钮就好了！

　　’按钮的单击事件代码非常之简单——

　　Option Explicit ‘强制声明变量

　　Private Sub CommandButton1_Click()

　　On Error Resume Next ‘设置错误处理

　　Application.ScreenUpdating = False ‘关闭屏幕刷新

　　Dim rngCell As Range, intRow%, i%

　　With Sheets(“sheet2”)

　　For Each rngCell In Range([A2], [A65536].End(xlUp)) ‘在Sheet1中循环每条记录

　　 intRow = .[A65536].End(xlUp).Row + 1 ‘记录Sheet2中可以添加新数据的行号

　　 .Cells(intRow, 1) = rngCell ‘在Sheet2中写入“单位简称”

　　 For i = 2 To 6 ‘在Sheet1中的单行记录中的C:G列循环

　　 If Len(rngCell.Offset(0, i)) <> 0 Then ‘检测空值，忽略空值

　　 .Cells(intRow, 256).End(xlToLeft).Offset(0, 1) = ActiveSheet.Cells(1, i + 1) ‘在Sheet2中写入非空值的费用名称

　　 .Cells(intRow, 256).End(xlToLeft).Offset(0, 1) = rngCell.Offset(0, i) ‘在Sheet2中写入非空值的金额

　　 End If

　　 Next i

　　 .Cells(intRow, 12) = rngCell.Offset(0, 7) ‘在Sheet2中写入合计数

　　 .Cells(intRow, 13) = rngCell.Offset(0, 8) ‘在Sheet2中写入大写金额

　　Next

　　.Select ‘

　　End With

　　Application.ScreenUpdating = True ‘打开屏幕刷新

　　End Sub