如何用EXCEL的VBA脚本编写程序求和
按alt+f11进vba编辑，双击thisworkbook，贴上以下代码
OptionExplicit
Subcolor()
DimisnumAsBoolean
Dimc,r,i,jAsInteger
循环选择的每一行。
Forr=1ToSelection.Rows.Count
循环选择的每一列。
Forc=2ToSelection.Columns.Count
IfSelection.Cells(r,c).Text=Selection.Cells(r,c-1).TextThen
i=i+1
Cells(Selection.Cells(r,c).Row,Selection.Columns.Count+j).Value=i
j=j+1
EndIf
Selection.Cells(r,c).Interior.ColorIndex=ci
Nextc
Cells(Selection.Cells(r,c).Row,Selection.Columns.Count+j).Value=i
Nextr
EndSub
关闭vba后，选中数值范围，按Alt+f8执行宏
本回答由网友推荐
VBA编程中求某列的最大值的函数
VBA编程中通过WorksheetFunction对象引用，后面加函数名称，然后加range来引用单元格来求某列的最大值的函数：
UseFunction()
myRange
Range
myRange
Worksheets("Sheet1").Range("A1:C10")
answer
Application.WorksheetFunction.Min(myRange)
MsgBox
answer
