IntegerDimMyVarasDoubleSetDataRange=Range("A1:C10000")ForIrow=1to10000Foricol=1to3' Read the values from the Excel grid 30,000 times.MyVar=DataRange(Irow,Icol)IfMyVar >0then' Change the value.MyVar=MyVar*Myvar' Write the values back into the Excel grid 30,00...
REPT(text,number_times) RIGHT RIGHT 根据所指定的字符数返回文本串中最后一个或多个字符。RIGHTB 根据所指定的字符数返回文本串中最后一个或多个字符。此函数用于双字节字符。 RIGHT(text,num_chars)RIGHTB(text,num_bytes) SEARCH SEARCH 返回从 start_num 开始首次找到特定字符或文本串的位置上特定字符的编号...