VBA/Excel/Access/Word/Excel/Cell Copy — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:33, 26 мая 2010
Copy data from one sheet in a range to another sheet
<source lang="vb">
Sub Copy_Sheet()
Dim myWorksheet As Worksheet Dim myWorksheetName As String myWorksheetName = "MyName" Sheets.Add.Name = myWorksheetName Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count) Sheets("Sheet1").Range("A1:A5").Copy _ Sheets(myWorksheetName).Range("A1")
End Sub
</source>