返回列表 上一主題 發帖

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

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
1# 跳轉到 »
發表於 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

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
2#
發表於 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

yen956

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

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題