\u30b7\u30fc\u30c8\u9593\u306e\u30b3\u30d4\u30fc<\/p>\n
Sub Excute()\r\n\r\nSet w = Sheets(\"\u30de\u30b9\u30bf\u767b\u9332\u7528\")\r\n\r\nDim hayStack As Range: Set hayStack = Sheets(\"\u54c1\u76ee\u30de\u30b9\u30bf\").Range(\"D15:D8462\")\r\n\r\nFor r = 3 To 3592\r\n \r\n If (r Mod 5) = 0 Then DoEvents\r\n \r\n productName = x(w.Cells(r, 1).Text)\r\n productNote = x(w.Cells(r, 4).Text)\r\n productItem = x(w.Cells(r, 5).Text)\r\n productKg = x(w.Cells(r, 24).Text)\r\n productLength = x(w.Cells(r, 25).Text)\r\n productWidth = x(w.Cells(r, 26).Text)\r\n productHeight = x(w.Cells(r, 27).Text)\r\n\r\n If productName <> \"\" Then Call Pour(hayStack, productName, productNote, productItem, productKg, productLength, productWidth, productHeight)\r\n\r\n Application.StatusBar = r\r\n\r\nNext r\r\n\r\nApplication.StatusBar = False\r\nMsgBox \"done\"\r\n\r\nEnd Sub\r\n\r\nFunction x(target)\r\ntarget = Replace(target, vbCrLf, \"\")\r\ntarget = Replace(target, vbCr, \"\")\r\ntarget = Replace(target, vbLf, \"\")\r\nx = target\r\nEnd Function\r\n\r\nSub Pour(hayStack, productName, productNote, productItem, productKg, productLength, productWidth, productHeight)\r\n\r\nSet w = Sheets(\"\u54c1\u76ee\u30de\u30b9\u30bf\")\r\n\r\nFor Each c In hayStack\r\n\r\n If (c.Text = productName) Then\r\n w.Cells(c.Row, 187) = productNote\r\n If productItem <> \"\" Then t = \"1\"\r\n w.Cells(c.Row, 179) = t\r\n w.Cells(c.Row, 180) = productKg\r\n w.Cells(c.Row, 181) = productLength\r\n w.Cells(c.Row, 182) = productWidth\r\n w.Cells(c.Row, 183) = productHeight\r\n End If\r\n\r\nNext\r\n\r\nEnd Sub\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"\u30b7\u30fc\u30c8\u9593\u306e\u30b3\u30d4\u30fc Sub Excute() Set w = Sheets(“\u30de\u30b9\u30bf\u767b\u9332\u7528”) Dim hayStack As Range: Set hayStack = Sheets(“\u54c1\u76ee\u30de\u30b9\u30bf”).Range(“D1 … <\/p>\n