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

代码：

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

填写excel中缺少的数据

1 个答案: