12
返回列表 上一主題 發帖

[發問] [發問] VBA填入公式

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
2  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
4# 跳轉到 »
發表於 2018-12-4 17:19 | 只看該作者
除了迴圈 還其他的方法嗎?
一個工作簿 有時候要跑 40多個Sheet， 每一個Sheet 都有一兩千行資料，
用迴圈跑要耗一些時間 !

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
2  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
3#
發表於 2018-12-4 17:14 | 只看該作者
回復 2# rouber590324


    感謝Rouber大 !

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2018-12-4 15:03 | 只看該作者
試試

Sub TEST()
Sheet1.[B2:B65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[B65536].End(xlUp).Row
  For M = 2 To X
   Sheet1.Cells(Y + 1, 2) = Mid(Sheet1.Cells(M, 1), 1, 3)
   Y = Y + 1
  Next
End Sub
羅

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
12
返回列表 上一主題