前幾天,有人在群里發起了一期Excel練手題,這道題,難度中等偏上,解決方法多樣,是最能體現Excel綜合水平的一道題。
題目要求:計算每個單元格中數字的合計。如下圖所示:
這里用的方法,來解決這個問題,有興趣的朋友可以自行理解。下面僅作參考,當然這段代碼還可以寫成自定義函數的形式。
Sub?sumx()
For?i?=?2?To?ActiveSheet.Cells(65536,?1).End(xlUp).Row
??????r?=?Split(Cells(i,?1),?",")
??????s?=?0
????????For?j?=?0?To?UBound(r)
????????????s?=?Val(r(j))?+?s
????????????Next
????Cells(i,?2)?=?s
Next
End?Sub
案例Excel文件在下方下載:↓↓↓