- ©«¤l
- 19
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 57
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2015-3-8
- ³Ì«áµn¿ý
- 2016-12-27
|
¥»©«³Ì«á¥Ñ windclover ©ó 2015-4-5 11:13 ½s¿è
§Ú¦³¨â±iªí
²Ä¤@±iªíªº¬ö¿ý·|copy¨ì²Ä¤G±iªí¤W- Public Sub Autocopy()
- Dim xR As Range, xSht As Worksheet
- Set xSht = Sheets("Á`ªí")
- Set xR = xSht.[A65536].End(xlUp)(2, 1).Resize(10)
- xR = [A8]
- xR.Offset(0, 1) = [A6]
- xR.Offset(0, 2) = [C6]
- xR.Offset(0, 3) = [E6]
- [B11:E20].Copy xR(1, 1).Offset(0, 4)
- End Sub
½Æ»s¥N½X µM«á¦b±q²Ä¤G±iªí°µ¤@Ӱʧ@
±Ncopy¹L¨Óªº¶W³sµ²(ÄæG)¨ú¥X¨ì²Ä¤G±iªí(ÄæI)- Sub hyperlinkremove()
- For i = 2 To Range("A2").End(xlDown).Row
- Cells(i, 9) = Cells(i, 7).Hyperlinks(1).Address
- Next
- End Sub
½Æ»s¥N½X ¤À¶}¼g·|¤F¡A½Ð°Ý¦p¦óµ²¦X¤@°_??
ÁÂÁÂ!! |
|