填写excel中缺少的数据

时间:2015-03-23 21:16:43

标签: excel vba excel-vba

最近我一直很努力。让我举个例子来开始。

  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列的文件,即名称,分数。我所做的是将名称和分数复制到此文件,但我发现其他内容不会自动填满。任何人都可以推荐我,我该怎么办? 。我能想到的方法是在添加新数据后如何拖动或刷新?

代码:

// 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)

1 个答案:

答案 0 :(得分: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""))))"