excel有很强大的数据统计功能，就连我数据库初始化数据都先转成excel形式，然后再ctrl + c, ctrl + v 贴进去，使用起来真是很方便。关于excel的书也非常的多，其中的大砖头也不少

但如果对excel不太熟悉的话，也会面对一些问题时束手无策。今天就遇到这样的一种情况，要合并数据，但合并的条件是以第一列的ID为准，也就是说第二列的数据会比较少。数据量比较大，10W以上，不可能纯手工。开始我想到导致数据库，再用程序处理，但后来一想这样做还要我去帮他处理剩下的数据，也不方便，于是就想用vba试试。其实VB是2004年学的，早就还给老师了

以下是写的代码，比较挫，边查边写

Sub export()
    Sheets("Sheet1").Select
    Dim cell_an, cell_bn, cell_a, cell_b
    cell_an = 1
    cell_bn = 1
    While Worksheets(1).Cells(cell_an, 1).Value <> ""
        cell_a = Worksheets(1).Cells(cell_an, 1).Value
        cell_b = Worksheets(1).Cells(cell_bn, 2).Value
       
        Worksheets(2).Cells(cell_an, 1).Value = cell_a
        If cell_a < cell_b Or cell_a > cell_b Then
            Worksheets(2).Cells(cell_an, 2).Value = 0
            Worksheets(2).Cells(cell_an, 3).Value = 0
            Worksheets(2).Cells(cell_an, 4).FormulaR1C1 = "=ABS(RC[-2]-RC[-1])"
            cell_an = cell_an + 1
        ElseIf cell_a = cell_b Then
            Worksheets(2).Cells(cell_an, 2).Value = Worksheets(1).Cells(cell_bn, 3).Value
            Worksheets(2).Cells(cell_an, 3).Value = Worksheets(1).Cells(cell_bn, 5).Value
            Worksheets(2).Cells(cell_an, 4).FormulaR1C1 = "=ABS(RC[-2]-RC[-1])"
            cell_an = cell_an + 1
            cell_bn = cell_bn + 1
        End If
       
    Wend
End Sub