[發問] 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

樓主熱帖

羅

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

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

高中生 Rank: 3 Rank: 3

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