111,094
社区成员




public void AddExpression(int cellR1, int cellC1, int cellR2, int cellC2, string expression)
{
Range cell1;
Range cell2;
cell1 = (Range)_workSheet.Cells[cellR1, cellC1];
cell2 = (Range)_workSheet.Cells[cellR2, cellC2];
Range range = (Range)_workSheet.get_Range(cell1, cell2);
range.Formula = expression;
}
Sub 重复值()
ActiveWindow.SmallScroll Down:=-9
Columns("B:C").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub