不用循环，假设是第15行，最后一列是：Cells(15, Columns.Count).End(xlToLeft).Column
columns(i).end(1).column获取第i行最后一列非空列标
如求n行最后一列的列数的语句：intLastColumn = Cells(n, Columns.Count).End(xlToLeft).Column
C = UsedRange.Columns.Count
