返回列表 上一主題 發帖

數據需要重新編碼，請幫幫我一下

brabus

帖子
171 
主題
33 
精華
0 
積分
433 
點名
309  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2010-6-8 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章2011兔年全勤獎章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-3-23 00:25 | 只看該作者

數據需要重新編碼，請幫幫我一下

我有一些資料檔，需要重新編碼
工作表一從c2到di123重新編碼完後。要放到工作表二相同的位置
ps:未來不同的資料檔資料數量是不同的(有的會到90歲)
重新編碼的原則如下:
以性別2,年齡是15為例原始數據如下
第一年    第二年   第三年   第四年   第五年   第六年
202        445        694        950        1213        1484

編碼後儲存格值＝202－性別－年齡的最後碼
也就是202-2(性別的數值)-5(年齡的末碼,十位數不計)=195
這個值放到工作表二的C３３儲存格
D33＝445-2-5=438放到工作表二的D33的位置
E33=694-2-5=687放到工作表二的E33的位置
F33=950-2-5=943 放到工作表二的F33的位置
…………………………………………………………..以此類推
希望各位高手幫忙解答
數據在附件中
謝謝

活頁簿1.rar (9.96 KB)

收藏 分享
jeason

brabus

帖子
171 
主題
33 
精華
0 
積分
433 
點名
309  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2010-6-8 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章2011兔年全勤獎章
9#
發表於 2015-11-22 16:06 | 只看該作者
回復 8# GBKEE


謝謝g大的回覆喔
jeason

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2015-11-21 08:05 | 只看該作者
回復 7# brabus
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar(), xRow As Integer, xCol As Integer
  4.     Ar = Sheets("工作表1").UsedRange.Value
  5.     For xRow = 2 To UBound(Ar)                '同工作表上的列
  6.         For xCol = 3 To UBound(Ar, 2)         '同工作表上的欄
  7.             If IsNumeric(Ar(xRow, xCol)) Then '是數字
  8.                 Ar(xRow, xCol) = Ar(xRow, xCol) - Ar(xRow, 1) - Ar(xRow, 1) Mod 10
  9.             End If
  10.         Next
  11.     Next
  12.     Sheets("工作表2").Range("A1").Resize(UBound(Ar), UBound(Ar, 2)) = Ar
  13. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

brabus

帖子
171 
主題
33 
精華
0 
積分
433 
點名
309  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2010-6-8 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章2011兔年全勤獎章
7#
發表於 2015-11-20 14:45 | 只看該作者
上面的東西我有遇到問題
如果在表格中的內容會有文字和數字的參雜積不一定在那個行列中)
如果是數字要轉換
如果是文字直接複制
我該怎麼改內容

For i = 3 To endCol
        For j = 2 To endRow
    if 是文字 then(請問這兒怎麼下指令???
   我想用isnumber()對嗎?如果是否則直接copy
           sh2.Cells(j, i) = sh1.Cells(j, i)
     ELSE
            sh2.Cells(j, i) = sh1.Cells(j, i) - sh1.Cells(j, 1) - sh1.Cells(j, 2) Mod 10
END IF
        Next

請高手指教,謝謝
jeason

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
6#
發表於 2014-3-26 12:02 | 只看該作者
我也剛學來的(向GBKEE版大學的),
現學現賣, 有問題再說啦.

TOP

brabus

帖子
171 
主題
33 
精華
0 
積分
433 
點名
309  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2010-6-8 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章2011兔年全勤獎章
5#
發表於 2014-3-26 10:44 | 只看該作者
回復 4# yen956


  太可怕了
你怎麼知道你後來補的部份是我不懂的
你有讀心術嗎?
真的謝謝你
jeason

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
4#
發表於 2014-3-24 12:20 | 只看該作者
回復 3# brabus
大大你好!
補充說明(方便你修改)：
   '[A65536].End(xlUp)→
    '由 [A65536] 開始向上查, 直到找到非空白格為止
    '.Row → 非空白格 的 列號
    endRow = sh1.[A65536].End(xlUp).Row
   
    '.Column → 非空白格 的 欄號(數字)
    endCol = sh1.[IV2].End(xlToLeft).Column
   
    '複製 欄A、欄B 到 sh2
    sh1.[A:B].Copy sh2.[A1]
   
    '複製 第一列 到 sh2
    sh1.[1:1].Copy sh2.[A1]
補圖：

TOP

brabus

帖子
171 
主題
33 
精華
0 
積分
433 
點名
309  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2010-6-8 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章2011兔年全勤獎章
3#
發表於 2014-3-23 19:33 | 只看該作者
回復 2# yen956


    感謝yen956大的回覆
   我有用=工作表1!C2-工作表1!$A$2-RIGHT(工作表2!B2,1)來完成
   你是用餘數來完成,讓我有學習到
   可是因為數據到時到複制到別的工作表去使用
   我怕複制會把公式COPY過去而讓值沒辦法帶過去
   所以才想用VBA來完成
   看這樣會不會簡單一點
   因為對VBA是新手 在摸索中
  會慢慢去了解內容的義意
  謝謝你的回覆
jeason

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
2#
發表於 2014-3-23 19:02 | 只看該作者
回復 1# brabus

方法一
工作表2 C3 公式:
=工作表1!C2-$A2-MOD(工作表1!$B2,10)
複製到全部

方法二
用VBA
  1. Option Explicit
  2. Private Sub CommandButton1_Click()
  3.     Dim sh1, sh2 As Worksheet
  4.     Dim i, j, endRow, endCol As Integer
  5.     Set sh1 = Sheets("工作表1")
  6.     Set sh2 = Sheets("工作表2")
  7.     endRow = sh1.[A65536].End(xlUp).Row
  8.     endCol = sh1.[IV2].End(xlToLeft).Column
  9.     sh1.[A:B].Copy sh2.[A1]
  10.     sh1.[1:1].Copy sh2.[A1]
  11.    
  12.     For i = 3 To endCol
  13.         For j = 2 To endRow
  14.             sh2.Cells(j, i) = sh1.Cells(j, i) - sh1.Cells(j, 1) - sh1.Cells(j, 2) Mod 10
  15.         Next
  16.     Next
  17. End Sub
複製代碼
工作表2 的 CommandButton1

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題