alter table phome_ecms_news auto_increment=1;
alter table phome_ecms_news_check auto_increment=1;
alter table phome_ecms_news_check_data auto_increment=1;
alter table phome_ecms_news_data_1 auto_in...
Private Sub SaveAndClear()
Dim Header, Deatil, Order As Range
Dim lastrow1, lastrow2 As Long
Dim i As Integer
lastrow1 = Sheet1.[B65536].End(xlUp).Row '取得sheet1 B列末行向...