- ©«¤l
- 913
- ¥DÃD
- 150
- ºëµØ
- 0
- ¿n¤À
- 1089
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-8-28
- ³Ì«áµn¿ý
- 2023-7-19
|
¶W¯Åª©¥D,ÁÂÁ±z¦^ÂÐ,«e±©Ò¦^Âаõ¦æ§¹¥þOK.
§Ú±N±z¼gªºµ{¦¡×§ï¨ì¥t¤@ÓÀɮפ¤,¥H¤U¬O±N¸ê®Æ¥t¶}¤@Ó·sªº¤u§@ªí(book1)¶K¤W,°õ¦æ¸Ó§R°£ªº¸ê®Æ«á,¥H¤U¬O§Ú·Q·s¼Wªºµ{¦¡:
§Ú·Q±N¾ã²z«áªº¸ê®Æ³Ñ¤UA:D,¥´¶}ÂÂÀɶK¤W¥u¦³A:D¦³¼ÆȪº³¡¥÷,¨ä¸ô®|¤ÎÀɦW¬°:P:\BCM\2011 BCMart Multi-Format.xlsx,¥t¤@ÓÃøÃD¬O¦]¬°§Ú¥i¯à¥´¶}ªº¬Obook2 or book3¥h°õ¦æ¥H¤Uªºµ{¦¡,©Ò¥Hn¦p¦ó¼g¤~¯àÅý¥¦¨Ìbookxx¥hcopy¸ê®Æ?
Sub copy_Chart_F()
'
' copy_Chart_F ¥¨¶°
'
'
Windows("VBA Cluster.xlsm").Activate
With ThisWorkbook.Sheets("Chart-F")
.Columns("D:AP").Hidden = False
Set A = Intersect(.UsedRange, .Range("D:Z")).SpecialCells(xlCellTypeVisible)
With Workbooks.Add
With .Sheets(1)
A.Copy .Range("A1") '§¹¥þ½Æ»s
A.Copy
.Range("A1").PasteSpecial xlPasteValues '¿ï¾Ü©Ê¶K¤WÈ
.Columns("G:U").Delete Shift:=xlToLeft
Columns("B:E").Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Cut
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
End With
End With
End With
End Sub |
|