- ©«¤l
- 9
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 14
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- 9
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-31
- ³Ì«áµn¿ý
- 2012-12-3
|
- «~¸¹ ¦WºÙ »sµ{ ¤u®É
- 123 °Å¤M ¤U®Æ 1 100
- 123 °Å¤M ²ÊF 2 200
- 123 °Å¤M ¬ã¿i 3 100
- 124 ¤e¤l ¤U®Æ 1 100
½Æ»s¥N½X °²³]§Aªº¸ê®Æ¬O¦p¤Wzªº¤è¦¡±Æ¦C(¤]´N¬O "«~¸¹"¦bA1 , "¦WºÙ"¦bB1 , "123"¦bA2..¥H¦¹Ãþ±À)
§Ú·|¥Î¥H¤Uªº¤è¦¡¸`¿ï¥X¨Ó
PS:§â¸ê®Æ©ñ¦bSheet1 , ¦h¶}¤@Ósheet2(¸ê®Æ·|Âà¦s¨ì³o)- Sub Trans()
- Dim New_Count,Data_Count,I as Double
- Dim Key_Word1 as string
- Dim Key_Word2 as string
- worksheets(2).range("A1").value="«~¸¹"
- worksheets(2).range("B1").value="¤u§Ç"
- Data_Count=worksheets(1).range("A65536").end(xlup).row
- For I = 1 to Data_Count
- Key_Word1=worksheets(1).range("A" & I).value '«~¸¹
- Key_Word2=worksheets(1).range("D" & I).value '¤u§Ç
- If Key_Word1="123" and Key_Word1="1" Then
- New_Count=worksheets(2).range("A65536").end(xlup).row
- worksheets(2).range("A" & New_Count+1).value=Key_Word1
- worksheets(2).range("B" & New_Count+1).value=Key_Word2
- End IF
- Next I
- end sub
½Æ»s¥N½X |
|