高效Excel&VBA操作（持续更新）

1.比对数据，查找不同 

条件：严格比较（支持大小写、空格等检查）。

试用情景：某部的报文更新，此时要比对数据库中数据顺序和名称等是否一致。
a.点中C1位置，添加语句：

=IF(EXACT(A1,B1),"相同","不同")

b.对同样的需要的地方，进行下拉拖动即可。

c.为了便于区分，选定C这一列---样式---条件格式---突出显示单元格规则---等于---输入“不同”

最终效果：

2.拼接字符串，输出到单元格。

最终效果：

试用场景：由于通讯报文更新，需要修改数据库同步。可先在excel修改，再进行数据库批量操作。

语句样例：

="update epay_msg_field t set t.disp_field_name='"&C1&"' where t.field_name='"&A1&"';"

3.已知对照表、主表，求主表中去除对照表中数据后的结果。

'''操作说明：
  '1.对照表拷贝到“sheet1”位置处,
  '2.主  表拷贝到“sheet2”位置处。
                                   '''
 
Sub 删除对照表中数据()

  '设置对照表行数
  Const COMP_LINE = 90

  '设置主表行数
  Const MAIN_LINE = 149
  
  '循环复制：将“Sheet1”表单中的第一列、第二列数据，复制到“Sheet3”表单中
  For j = 1 To MAIN_LINE
  Sheets(3).Cells(j, 1) = Sheets(2).Cells(j, 1)
  Sheets(3).Cells(j, 2) = Sheets(2).Cells(j, 2)
  Next
  
  '查找相同数据，并删除
  For j = 1 To COMP_LINE
  For k = 1 To MAIN_LINE
  
  '根据第二列（即单位名称）查找
  If Sheets(1).Cells(j, 2) = Sheets(3).Cells(k, 2) Then
  Sheets(3).Range("A" & k, "A" & k).EntireRow.Delete
  End If
  Next
  Next
  
End Sub