標題: [發問] 自動加值與搜尋到的值複製整排到其他工作表 [打印本頁]

---

作者: mark761222    時間: 2016-9-5 16:33     標題: 自動加值與搜尋到的值複製整排到其他工作表

有兩個問題
問題1
圖中成品部分後面都會有一個數字，會依照每過一天，數值+1，等這些數值與旁邊參數一樣的時候會自動變成空白

問題2
只要有成品資料的會自動複製整排至工作表2

[attach]25141[/attach][attach]25142[/attach]

---

作者: rouber590324    時間: 2016-9-7 11:22

試試

Sub 轉置()
Sheet2.[a2:C65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet2.[A65536].End(xlUp).Row
For M = 3 To X
If Sheet1.Cells(M, 3) <> "" Or Sheet1.Cells(M, 3) <> " " Then
   Sheet2.Cells(Y + 1, 1).Resize(, 3).Value = Sheet1.Cells(M, 1).Resize(, 3).Value
    Y = Y + 1
  End If
  Next
End Sub

---

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