Dim rng As Range
Set rng = ThisWorkbook.Sheets(«Sheet1»).Range(«A1:B1»)
rng.Select
End Sub
Dim rng As Range
Dim cell As Range
Set rng = ThisWorkbook.Sheets(«Sheet1»).Range(«A1:B5»)
For Each cell In rng
MsgBox cell.Value
Next cell
End Sub
Кроме того, в VBA Excel есть возможность сохранять данные в новый файл или другой формат файлов. Например, с помощью следующего кода вы можете создать новый файл Excel и вывести в него данные из выбранного диапазона:
Dim rng As Range
Set rng = ThisWorkbook.Sheets(«Sheet1»).Range(«A1:B5»)
rng.Copy
Dim newWorkbook As Workbook
Set newWorkbook = Workbooks.Add
newWorkbook.Sheets(1).Range(«A1»).PasteSpecial
End Sub