Заполнение отсутствующих данных в excel

Question

В последнее время мне очень сложно. позвольте мне привести вам пример для начала.

Date  Name  Score  Percentage   Grade 
3/23/2015 A   20   40    C 
3/23/2015 B   15   30    D 
3/23/2015 C   40   80    B 
      D   45   
      E   35 

Предположим, что процент двойного балла, а класс основан на процентном диапазоне. Я обновляю эту таблицу из файла, который содержит всего 2 столбца i.e Name, Score. То, что я делаю, копирует имя и оценку в этот файл, но я вижу, что другие вещи не заполняются автоматически. может ли кто-нибудь порекомендовать меня, что я могу сделать? , Как я могу думать, как я могу перетащить или обновить после добавления новых данных?

Код:

// To Update. 
Dim sht As Worksheet 
Set sht = ThisWorkbook.Worksheets("NewRecords") 
lastrow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row 

Range("B2:B" & lastrow).Copy ThisWorkbook.Worksheets("Main").Range("a65536").End(xlUp).Offset(1, 2) 
Range("C2:C" & lastrow).Copy ThisWorkbook.Worksheets("Main").Range("a65536").End(xlUp).Offset(1, 1) 

Answer 1

Вы можете заполнить формулы диапазонам как:

Range("D2:D" & lastrow).FormulaR1C1 = "=RC[-1]*2" 
Range("E2:E" & lastrow).FormulaR1C1 = "=IF(RC[-1] < 30, ""E"", IF(RC[-1] < 40, ""D"", IF(RC[-1] < 80, ""C"", IF(RC[-1] < 90, ""B"", ""A""))))"