返回列表下一主題上一主題發帖

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

rouber590324

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

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