返回列表 上一主題 發帖

[發問] MID抓取資料0不見問題請教

rouber590324

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-4-15 10:13 | 只看該作者

[發問] MID抓取資料0不見問題請教

DEAR ALL 大大
1.如圖一程式碼,我使用 Mid(Sheets("" & Sheet1.Range("A1") & ".nd").Cells(M, 1), 2, 9)抓取資料
  1.1 X-01062550Y-00788021抓取出 -1062550
2.問題點  應該抓取出 -01062550 . 但-後方之 0 不見啦
2.1 請問該如何修改. 煩不吝賜教   THANKS*10000

圖一
Sub 資料分析1()
X = Sheets("" & Sheet1.Range("A1") & ".nd").[A65536].End(xlUp).Row
Y = Sheets("jyk158a_cs_r90_via.nd").[D65536].End(xlUp).Row
For M = 7 To X
If 1 = 1 Then
  Sheets("" & Sheet1.Range("A1") & ".nd").Cells(Y + 1, 4) = Sheet1.Cells(1, 2)
  Sheets("" & Sheet1.Range("A1") & ".nd").Cells(Y + 1, 5) = Sheet1.Cells(1, 3)
  Sheets("" & Sheet1.Range("A1") & ".nd").Cells(Y + 1, 6) = Sheet1.Cells(1, 4)
  
  Sheets("" & Sheet1.Range("A1") & ".nd").Cells(Y + 1, 7) = Mid(Sheets("" & Sheet1.Range("A1") & ".nd").Cells(M, 1), 2, 9)
      Y = Y + 1
  End If
  Next
End Sub
收藏 分享
羅

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-25 
2#
發表於 2020-4-15 10:54 | 只看該作者
With Sheets("" & Sheet1.Range("A1") & ".nd")
     .Cells(Y + 1, 4) = Sheet1.Cells(1, 2)
     .Cells(Y + 1, 5) = Sheet1.Cells(1, 3)
     .Cells(Y + 1, 6) = Sheet1.Cells(1, 4)
     .Cells(Y + 1, 7) = "'" & Mid(.Cells(M, 1), 2, 9) '加單引號為文字格式
End With

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-25 
3#
發表於 2020-4-15 10:57 | 只看該作者
或者:
With Sheets("" & Sheet1.Range("A1") & ".nd")
     .Cells(Y + 1, 4) = Sheet1.Cells(1, 2)
     .Cells(Y + 1, 5) = Sheet1.Cells(1, 3)
     .Cells(Y + 1, 6) = Sheet1.Cells(1, 4)
     .Cells(Y + 1, 7).NumberFormatLocal = "@" '文字格式
     .Cells(Y + 1, 7) = Mid(.Cells(M, 1), 2, 9)
End With

最好先將整欄設為[文字格式], 不必在程式碼去處理, 多耗資源~~

TOP

rouber590324

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
4#
發表於 2020-4-15 11:25 | 只看該作者
DEAR 准大
1.感謝您之回復 . 100%符合需求.
2.將依您之建議執行  THANKS*10000
最好先將整欄設為[文字格式], 不必在程式碼去處理, 多耗資源~~
羅

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題