標題: [發問] MID抓取資料0不見問題請教 [打印本頁]

---

作者: rouber590324    時間: 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

---

作者: 准提部林    時間: 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

---

作者: 准提部林    時間: 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

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

---

作者: rouber590324    時間: 2020-4-15 11:25

DEAR 准大
1.感謝您之回復 . 100%符合需求.
2.將依您之建議執行  THANKS*10000
最好先將整欄設為[文字格式], 不必在程式碼去處理, 多耗資源~~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)