brabus

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

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

yen956

高中生 Rank: 3 Rank: 3

帖子: 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

Option Explicit
Private Sub CommandButton1_Click()
Dim sh1, sh2 As Worksheet
Dim i, j, endRow, endCol As Integer
Set sh1 = Sheets("工作表1")
Set sh2 = Sheets("工作表2")
endRow = sh1.[A65536].End(xlUp).Row
endCol = sh1.[IV2].End(xlToLeft).Column
sh1.[A:B].Copy sh2.[A1]
sh1.[1:1].Copy sh2.[A1]
For i = 3 To endCol
For j = 2 To endRow
sh2.Cells(j, i) = sh1.Cells(j, i) - sh1.Cells(j, 1) - sh1.Cells(j, 2) Mod 10
Next
Next
End Sub

複製代碼

工作表2 的 CommandButton1

TOP

brabus

中學生 Rank: 2

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

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

高中生 Rank: 3 Rank: 3

帖子: 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

中學生 Rank: 2

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

5^#

發表於 2014-3-26 10:44 | 只看該作者

回復 4# yen956

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

jeason

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 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

中學生 Rank: 2

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

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

GBKEE