O master-CodePudding

 b=1: a=1 
Range (" data "). valuehttps://bbs.csdn.net/topics/="" 
The Do While the value (b, 2) & lt;> The Empty 
If doone (b, 13) + doone (b, 23) - doone (b, 33) & lt;> 0 Then 

Sheet_yl. Cells (a + 2, inone (1)). The value='serial number 
 https://bbs.csdn.net/topics/aSheet_yl. Cells (a + 2, inone (2)). The value=https://bbs.csdn.net/topics/value (b, 2) 'batch number 
Sheet_yl. Cells (a + 2, inone (3)). The value=https://bbs.csdn.net/topics/value (b, 3) 'product code 
Sheet_yl. Cells (a + 2, inone (4)). The value=https://bbs.csdn.net/topics/date_st (b, 4) 'warehousing date 
If the value (b, 5)="" Then the value (b, 5)=" production warehouse 
"Sheet_yl. Cells (a + 2, inone (5)). The value=https://bbs.csdn.net/topics/value (b, 5) 'warehousing category 
Sheet_yl. Cells (a + 2, inone (6)). The value=https://bbs.csdn.net/topics/value (b, 6) 'product name 
Sheet_yl. Cells (a + 2, inone (7)). The value=https://bbs.csdn.net/topics/value (b, 7) customers' 
Sheet_yl. Cells (a + 2, inone (8)). The value=https://bbs.csdn.net/topics/value (b, 8) 'client code 
Sheet_yl. Cells (a + 2, inone (9)). The value=https://bbs.csdn.net/topics/value (b, 9) 'order number 
Sheet_yl. Cells (a + 2, inone (10)). The value=https://bbs.csdn.net/topics/value (b, 10) 'base cloth 
Sheet_yl. Cells (a + 2, inone (11)). The value=https://bbs.csdn.net/topics/value (b, 11) 'after processing 
Sheet_yl. Cells (a + 2, inone (12)). The value=https://bbs.csdn.net/topics/doone (b, 12) thickness 
 'Sheet_yl. Cells (a + 2, inone (13)). The value=https://bbs.csdn.net/topics/doone (b, 13) + doone (b, 23) - doone number (b, 33) '
Sheet_yl. Cells (a + 2, inone (14)). The value=https://bbs.csdn.net/topics/doone (b, 14) 'number 
Sheet_yl. Cells (a + 2, inone (15)). The value=https://bbs.csdn.net/topics/value (b, 15) 'location 
Sheet_yl. Cells (a + 2, inone (16)). The value=https://bbs.csdn.net/topics/value (b, 16) 'remarks (consignor has inserted, position change, the same below) 
Sheet_yl. Cells (a + 2, inone (17)). The value=https://bbs.csdn.net/topics/value (b, 17) 'code note 
Sheet_yl. Cells (a + 2, inone (18)). The value=https://bbs.csdn.net/topics/value (b, 18) 'base fabric code note 
A=a + 1 
End the If 

B=b + 1 
Loop

Tip error run-time error '1004' method 'Range' ACTS on the objects' _Global...

CodePudding user response:

Range (" data "). valuehttps://bbs.csdn.net/topics/="" here how to modify the

CodePudding user response:

reference 1st floor qq_35379165 response:

Range (" data "). valuehttps://bbs.csdn.net/topics/="" here how to modify the

Code is not wrong,

Error is that: you " the current active worksheet ", not was named " data " area!!!!!!

CodePudding user response:

In addition, only from the point of you post this code,
Behind a pile of containing x (here refers to any number) of the code is wrong, I'm afraid,