个人常用的vba代码

只做备注

Sub general_sql_macro()
   Sql = ""
   column_name = "user_count"
   Sql = "insert into `mytable` (date," + column_name + ") values "

    For Row =  To
        date_str = CStr(Sheets("Sheet1").Cells(Row, ).Value)
        If date_str = "" Then
           Exit For
        End If
        If Row <>  Then
          Sql = Sql + ","
        End If
        Value = Sheets("Sheet1").Cells(Row, ).Value

         insert_value = "('" + date_str + "'," + CStr(Value) + ")"
         Sql = Sql + insert_value

    Next Row
    Sql = Sql + " on DUPLICATE KEY UPDATE " + column_name + "=values(" + column_name + ")"
    Sheets("Sheet1").Cells(, ).Value = Sql

End Sub