Недавно я использовал учебник для « формы ввода, чтобы получить данные и сохранить их на другой вкладке в Excel », и у меня возникли некоторые проблемы с тем, сколько времени потребуется для работы макроса. Каждый раз, когда я запускаю макрос, в нижней правой части экрана появляется «CPU 4 xx%», и для его запуска требуется очень много времени. Основное различие между моим кодом и кодом учебника состоит в том, что у меня есть около 20 диапазонов для копирования вместо 4, что, я уверен, способствует времени. Есть ли у вас какие-либо советы по улучшению моего кода? Спасибо!
Код:
Sub InputtoDatabase()
ws_out = "R_Database Sheet"
next_row = Sheets(ws_out).Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Sheets(ws_out).Cells(next_row, 1).Value = Range("v1").Value
Sheets(ws_out).Cells(next_row, 2).Value = Range("v2").Value
Sheets(ws_out).Cells(next_row, 3).Value = Range("v3").Value
Sheets(ws_out).Cells(next_row, 4).Value = Range("v4").Value
Sheets(ws_out).Cells(next_row, 5).Value = Range("v5").Value
Sheets(ws_out).Cells(next_row, 6).Value = Range("v6").Value
Sheets(ws_out).Cells(next_row, 7).Value = Range("v7").Value
Sheets(ws_out).Cells(next_row, 8).Value = Range("v8").Value
Sheets(ws_out).Cells(next_row, 9).Value = Range("v9").Value
Sheets(ws_out).Cells(next_row, 10).Value = Range("v10").Value
Sheets(ws_out).Cells(next_row, 11).Value = Range("v11").Value
Sheets(ws_out).Cells(next_row, 12).Value = Range("v12").Value
Sheets(ws_out).Cells(next_row, 13).Value = Range("v13").Value
Sheets(ws_out).Cells(next_row, 14).Value = Range("v14").Value
Sheets(ws_out).Cells(next_row, 15).Value = Range("v15").Value
Sheets(ws_out).Cells(next_row, 16).Value = Range("v16").Value
Sheets(ws_out).Cells(next_row, 17).Value = Range("v17").Value
Sheets(ws_out).Cells(next_row, 18).Value = Range("v18").Value
Sheets(ws_out).Cells(next_row, 19).Value = Range("v19").Value
Sheets(ws_out).Cells(next_row, 20).Value = Range("v20").Value
Sheets(ws_out).Cells(next_row, 23).Value = Range("v21").Value
Sheets(ws_out).Cells(next_row, 24).Value = Range("v22").Value
Sheets(ws_out).Cells(next_row, 25).Value = Range("v23").Value
End Sub