【エクセル】数値の一番右を奇数として、奇数と偶数位置に分類したい

ある数値（677001）の一番右（1）を奇数として、すべての数字を奇数位置と偶数位置に分類し、奇数位置の数字を3倍して合計を出したいのですが。ある数値は、毎回桁数が異なります。

No.1 ベストアンサー 回答者： grumpy_the_dwarf 回答日時： 2006/05/01 09:58

奇数位置とか偶数位置とか考えるから判らなくなるわけで、素直に

一の位と百の位と万の位と…と取り出していくと思えばたいしたこ
とないですね。

一の位: =mod(x,10)
百の位: =mod(int(x/100),10)
万の位: =mod(int(x/10000),10)

あとは好きなように加工して合計して下さい。ちなみにExcelの有効
桁は15桁くらいしかないので、延々と桁が増えてく心配はないです。

この回答へのお礼

なるほど、そういう考え方でやる方法もありますね。
ありがとうございました。

お礼日時：2006/05/01 13:28

No.2 回答者： o_chi_chi 回答日時： 2006/05/01 10:09

マクロで。

>奇数位置の数字を３倍して
の部分は
奇数位置の数字をそれぞれ３倍して
と解釈しました。
---
Function m(d As String) As Long
Dim i As Long
Dim s As Long
s = 0
For i = Len(d) To 1 Step -2
s = s + CLng(Mid$(d, i, 1)) * 3&
Next
m = s
End Function

No.3 回答者： mike_g 回答日時： 2006/05/01 11:00

「位置に分類」の意味が分からないけど、すべての奇数の和の３倍を出せばよいのなら、

{=SUM(list*MOD(list,2))*3} (配列数式)
でＯＫかと。

それとも奇数の１の位の総和の３倍ですか？それなら
{=SUM(MOD(list*MOD(list,2),10))*3} (配列数式)
でＯＫかと。