|
ChatGPT最近非?；?/p> 火到好像很多低級(jí)崗位都要失業(yè) 不過有一說一，ChatGPT確實(shí)很厲害 但只要你有獨(dú)特的能力，有創(chuàng)新能力， 也不用過于杞人憂天 現(xiàn)在讓我們來看看ChatGPT寫vba代碼的能力 
Dim totalSheet As Worksheet Dim dataSheet As Worksheet Set totalSheet = ThisWorkbook.Sheets('總表') '總表的工作表名稱 totalLastRow = totalSheet.Cells(totalSheet.Rows.Count, 'A').End(xlUp).Row + 1 '總表中最后一行的行號(hào) For i = 1 To ThisWorkbook.Sheets.Count '循環(huán)每個(gè)工作表 If ThisWorkbook.Sheets(i).Name <> '總表' Then '排除總表 Set dataSheet = ThisWorkbook.Sheets(i) '數(shù)據(jù)表的工作表名稱 lastRow = dataSheet.Cells(dataSheet.Rows.Count, 'A').End(xlUp).Row '數(shù)據(jù)表中最后一行的行號(hào) dataSheet.Range('A2:Z' & lastRow).Copy Destination:=totalSheet.Range('A' & totalLastRow) '將數(shù)據(jù)復(fù)制到總表中 totalLastRow = totalSheet.Cells(totalSheet.Rows.Count, 'A').End(xlUp).Row + 1 '更新總表的最后一行行號(hào) MsgBox '數(shù)據(jù)已成功匯總到總表。'---------------------------------------------------------------以上這段代碼，我一字未改，貼到excel后臺(tái)的VBA編輯器里
這是待匯總的3個(gè)分表
這是需要匯集數(shù)據(jù)的總表： 
執(zhí)行VBA 
很快得到結(jié)果如下： 
是不是很厲害？！
當(dāng)然我也問了ChatGPT其他問題，發(fā)現(xiàn)不是每個(gè)問題它都能回答得較為正確。比如我問它郵件合并的操作細(xì)節(jié)，怎么樣確保每頁word上有2條記錄。結(jié)果它的回答結(jié)果就是一言難盡。
總體來說，ChatGPT確實(shí)相當(dāng)強(qiáng)大，再不好好學(xué)習(xí)，再不發(fā)揮人的創(chuàng)新精神，再整天摸魚混日子，估計(jì)離失業(yè)也就不遠(yuǎn)了。
更多內(nèi)容參考我下面的課程
|
