在Excel中填写缺less的数据
最近我一直很辛苦。 让我举一个例子来开始。
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 假设百分比是分数的两倍，分数是基于百分比范围。 我更新这个表格forms的文件，只包含2列，即名称，分数。 我所做的是复制名称和得分到这个文件，但我看到其他的东西不会自动填满。 谁能推荐我可以做什么？ 。 我能想到的方式是在添加新数据后如何拖动或刷新？
码：
// 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)
你可以填写公式范围如下：
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""))))"