Выделить всю таблицу в excel макрос - Word и Excel - помощь в работе с программами

Доброго времени суток, господа.
Созрел у меня вопрос: как реализовать функцию «выделить все» (Ctrl+A) в макросе экселя?
Допустим есть таблицы, число строк у которых всегда разное. Если записать макрос использовав сочитание клавиш Ctrl+A, то в макросе будет записан диапазон ячеек. Например, если таблица имеет 3 столбика и 20 строк, то в макросе будет диапазон A1:C20. Все бы ничего, но при работе с другой таблицей, у которой 3 столбца и 50 строк, макрос будет работать не правильно (ибо диапазон, после A1:C20 не будет обрабатываться).
Как вариант, я поставил диапазон A1:C5000 (заведомо огромный, чтобы включить возможные размеры таблиц), но подозреваю, что есть более простой вариант реализации
Так как же «выделить все» макросом, не зная за ранее размеров таблицы?

Юрий М Модератор Сообщений: 60577 Регистрация: 14.09.2012 Контакты см. в профиле	Вычислить номер последней строки и номер последнего столбца. И уже потом выделять.

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

08.01.2013 21:58:22

В общем случае это может выглядеть так:

Код

Sub qqq()
Dim LastRow As Long, LastColumn As Integer
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'последняя строка по столбцу А
    LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column 'последний столбец по первой строке
    Range(Cells(1, 1), Cells(LastRow, LastColumn)).Select
End Sub

ikki

Пользователь

Сообщений: 9709
Регистрация: 22.12.2012

поэкспериментиовал…
насколько я понял, Ctrl+A аналогично свойству CurrentRegion
за одним исключением — если в CurrentRegion окажется только одна ячейка (даже объединенная) — то тогда берется Worksheet.Cells
именно все Cells листа, а не UsedRange

имхо, Cells брать смысла нет, остается выбрать между CurrentRegion и UsedRange — смотря по задаче.

Изменено: ikki — 08.01.2013 22:07:47

фрилансер Excel, VBA — контакты в профиле
«Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

Андрей Пользователь Сообщений: 30 Регистрация: 08.01.2013	В строке макроса в место Range(«A1:C20»).Select или Range(«A1:C5000»).Select поставить Cells.Select (это Ctrl+A в макросе) или как предлагает Юрий М

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

08.01.2013 22:06:34

Цитата
Андрей пишет: Cells.Select

Это Вы немного погорячились

Андрей, я так пытался сделать, но макрос после этого вместо 2х секунд начал выполняться 20 минут

ikki, это хороший вариант. Загуглю позже, спасибо за посказку.

Юрий М, спасибо. Сейчас буду пробовать, позже отпишусь о результатах.

Вот что мне помогло —

http://www.youtube.com/watch?v=YXDJjTzB6EQ

В моем случае Ctrl+A работает как CurrentRegion.

Юрий М, я так и не осилил вашу часть кода (не шибко то я опытен в программировании vba), не могли бы вы описать в чем собственно заключается идея исспользования данного кода?

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

09.01.2013 00:59:44

Цитата
Derian Fox пишет: макрос после этого вместо 2х секунд начал выполняться 20 минут

Совет Cells.Select — плохой совет: будут выделены все ячейки на листе
Идея заключается в том, что Вы и хотели добиться — определять последнюю строку и последний столбец (чтобы не выделять лишних ячеек).
===
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Эта строка кода найдёт последнюю заполненную ячейку в столбце А. Если нужно по другому столбцу — поменяйте 1 на номер нужного столбца.
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
Эта строка кода просмотрит ПЕРВУЮ строку на листе и определит последнюю заполненную ячейку: это и будет номер столбца.

Цитата
Derian Fox пишет: Юрий М, я так и не осилил вашу часть кода

А что её осиливать? На чистом листе введите что-нибудь, например, в ячейки А10 и F1. Затем выполните тот маленький макрос. Будет выделен ТОЛЬКО диапазон, не выходящий за пределы ячеек с данными.

Derian Fox Пользователь Сообщений: 104 Регистрация: 08.01.2013	#10 10.01.2013 14:03:28 Юрий М, Потестил. Все шикарно работает, спасибо за обьяснение.

Источник

Download Article

This wikiHow teaches you how to start using Visual Basic procedures to select data in Microsoft Excel. As long as you’re familiar with basic VB scripting and using more advanced features of Excel, you’ll find the selection process pretty straight-forward.

1
Select one cell on the current worksheet. Let’s say you want to select cell E6 with Visual Basic. You can do this with either of the following options:^[1]
```
ActiveSheet.Cells(6, 5).Select
```
```
ActiveSheet.Range("E6").Select
```
2
Select one cell on a different worksheet in the same workbook. Let’s say our example cell, E6, is on a sheet called Sheet2. You can use either of the following options to select it:
```
Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)
```
```
Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))
```
Advertisement
3
Select one cell on a worksheet in a different workbook. Let’s say you want to select a cell from Sheet1 in a workbook called BOOK2.XLS. Either of these two options should do the trick:
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(2,1)
```
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("A2")
```
4
Select a cell relative to another cell. You can use VB to select a cell based on its location relative to the active (or a different) cell. Just be sure the cell exists to avoid errors. Here’s how to use :
- Select the cell three rows below and four columns to the left of the active cell:
```
ActiveCell.Offset(3, -4).Select
```
- Select the cell five rows below and four columns to the right of cell C7:
```
ActiveSheet.Cells(7, 3).Offset(5, 4).Select
```

1
Select a range of cells on the active worksheet. If you wanted to select cells C1:D6 on the current sheet, you can enter any of the following three examples:
```
ActiveSheet.Range(Cells(1, 3), Cells(6, 4)).Select
```
```
ActiveSheet.Range("C1:D6").Select
```
```
ActiveSheet.Range("C1", "D6").Select
```
2
Select a range from another worksheet in the same workbook. You could use either of these examples to select cells C3:E11 on a sheet called Sheet3:
```
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("C3:E11")
```
```
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("C3", "E11")
```
3
Select a range of cells from a worksheet in a different workbook. Both of these examples would select cells E12:F12 on Sheet1 of a workbook called BOOK2.XLS:
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E12:F12")
```
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E12", "F12")
```
4
Select a named range. If you’ve assigned a name to a range of cells, you’d use the same syntax as steps 4-6, but you’d replace the range address (e.g., «E12», «F12») with the range’s name (e.g., «Sales»). Here are some examples:
- On the active sheet:
```
ActiveSheet.Range("Sales").Select
```
- Different sheet of same workbook:
```
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("Sales")
```
- Different workbook:
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("Sales")
```
5
Select a range relative to a named range. The syntax varies depending on the named range’s location and whether you want to adjust the size of the new range.
- If the range you want to select is the same size as one called Test5 but is shifted four rows down and three columns to the right, you’d use:
```
ActiveSheet.Range("Test5").Offset(4, 3).Select
```
- If the range is on Sheet3 of the same workbook, activate that worksheet first, and then select the range like this:
```
Sheets("Sheet3").Activate ActiveSheet.Range("Test").Offset(4, 3).Select
```
6
Select a range and resize the selection. You can increase the size of a selected range if you need to. If you wanted to select a range called Database’ and then increase its size by 5 rows, you’d use this syntax:
```
Range("Database").Select Selection.Resize(Selection.Rows.Count + 5, _Selection.Columns.Count).Select
```
7
Select the union of two named ranges. If you have two overlapping named ranges, you can use VB to select the cells in that overlapping area (called the «union»). The limitation is that you can only do this on the active sheet. Let’s say you want to select the union of a range called Great and one called Terrible:
- ```
Application.Union(Range("Great"), Range("Terrible")).Select
```
- If you want to select the intersection of two named ranges instead of the overlapping area, just replace Application.Union with Application.Intersect.

1

Use this example data for the examples in this method. This chart full of example data, courtesy of Microsoft, will help you visualize how the examples behave:^[2]

A1: Name B1: Sales C1: Quantity

A2: a B2: $10 C2: 5

A3: b B3: C3: 10

A4: c B4: $10 C4: 5

A5: B5: C5:

A6: Total B6: $20 C6: 20
2
Select the last cell at the bottom of a contiguous column. The following example will select cell A4:
```
ActiveSheet.Range("A1").End(xlDown).Select
```
3
Select the first blank cell below a column of contiguous cells. The following example will select A5 based on the chart above:
```
ActiveSheet.Range("A1").End(xlDown).Offset(1,0).Select
```

Select a range of continuous cells in a column. Both of the following examples will select the range A1:A4:

ActiveSheet.Range("A1", ActiveSheet.Range("a1").End(xlDown)).Select

ActiveSheet.Range("A1:" & ActiveSheet.Range("A1"). End(xlDown).Address).Select

5
Select a whole range of non-contiguous cells in a column. Using the data table at the top of this method, both of the following examples will select A1:A6:
```
ActiveSheet.Range("A1",ActiveSheet.Range("A65536").End(xlUp)).Select
```
```
ActiveSheet.Range("A1",ActiveSheet.Range("A65536").End(xlUp)).Select
```

Ask a Question

200 characters left

Include your email address to get a message when this question is answered.

Submit

Video

The «ActiveSheet» and «ActiveWorkbook» properties can usually be omitted if the active sheet and/or workbook(s) are implied.

Thanks for submitting a tip for review!

About This Article

Article SummaryX

1. Use ActiveSheet.Range(«E6»).Select to select E6 on the active sheet.
2. Use Application.Goto (ActiveWorkbook.Sheets(«Sheet2»).Range(«E6»)) to select E6 on Sheet2.
3. Add Workbooks(«BOOK2.XLS») to the last step to specify that the sheet is in BOOK2.XLS.

Did this summary help you?

Thanks to all authors for creating a page that has been read 167,768 times.

Is this article up to date?

Источник

Вопрос:

Я нашел аналогичное решение этого вопроса в С#… См. Ссылку ниже

Как выделить все ячейки на листе в Excel.Range объект С#?

У кого-нибудь есть фрагмент, чтобы сделать это в VBA? Я не очень знаком с VBA, так что это было бы полезно. Вот что у меня так далеко…

Я обычно выбираю данные, используя “Ctrl + стрелка над стрелкой, стрелка вниз”, чтобы выделить весь диапазон ячеек. Когда я запускаю это в макросе, он кодирует A1: Q398247930, например. Мне нужно это просто

.SetRange Range("A1:whenever I run out of rows and columns")

Это очень просто, и я мог бы легко сделать это сам без макроса, но я пытаюсь сделать весь процесс макросом, и это всего лишь часть этого.

Sub sort()
'sort Macro
Range("B2").Select
ActiveWorkbook.Worksheets("Master").sort.SortFields.Clear
ActiveWorkbook.Worksheets("Master").sort.SortFields.Add Key:=Range("B2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Master").sort
.SetRange Range("A1:whenever I run out of rows and columns")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

редактировать: есть другие части, где я мог бы использовать тот же код, но диапазон, скажем, “C3: конец строк и столбцов”. В VBA есть способ получить местоположение последней ячейки в документе?

Спасибо!

Лучший ответ:

Я считаю, что вы хотите найти текущую область A1 и окружающих клеток – не обязательно все ячейки на листе.
Если так – просто используйте…
Range ( “A1” ). CurrentRegion

Ответ №1

Вы можете просто использовать cells.select, чтобы выбрать ячейки all на листе. Вы можете получить действительный адрес, указав Range(Cells.Address).

Если вы хотите найти последний Used Range, где вы внесли некоторые изменения форматирования или ввели значение, вы можете вызвать ActiveSheet.UsedRange и выбрать его там. Надеюсь, что поможет

Ответ №2

вы можете использовать все ячейки как объект:

Dim x as Range
Set x = Worksheets("Sheet name").Cells

X теперь является объектом диапазона, который содержит весь рабочий лист

Ответ №3

у вас есть несколько вариантов:

Использование свойства UsedRange
найдите последнюю используемую строку и столбец
используйте мимику сдвига и сдвига вправо

Я лично использую использованный диапазон и чаще всего использую метод последней строки и столбца.

Вот как вы это сделаете, используя свойство UsedRange:

Sheets("Sheet_Name").UsedRange.Select

Этот оператор выберет все используемые диапазоны на листе, обратите внимание, что иногда это не очень хорошо работает при удалении столбцов и строк.

Альтернативой является поиск самой последней ячейки, используемой на листе

Dim rngTemp As Range
Set rngTemp = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not rngTemp Is Nothing Then
Range(Cells(1, 1), rngTemp).Select
End If

Что делает этот код:

Найти последнюю ячейку, содержащую любое значение
выберите ячейку (1,1) до последней ячейки

Ответ №4

Я бы рекомендовал записывать макрос, например, найденный в этом сообщении;

макрос Excel VBA для фильтрации записей

Но если вы хотите найти конец своих данных, а не конец рабочей книги, если нет пустых ячеек между началом и концом ваших данных, я часто использую что-то вроде этого:

R = 1
Do While Not IsEmpty(Sheets("Sheet1").Cells(R, 1))
R = R + 1
Loop
Range("A5:A" & R).Select 'This will give you a specific selection

Вы остаетесь с R = до номера строки после окончания ваших данных. Это также можно использовать для столбца, а затем вы можете использовать что-то вроде Cells (C, R). Выберите, если вы сделали C представление столбца.

Ответ №5

Вот то, что я использовал, я знаю, что это может использовать некоторые усовершенствования, но я думаю, что это поможет другим…

''STYLING''

Dim sheet As Range

' Find Number of rows used
Dim Final As Variant
Final = Range("A1").End(xlDown).Row

' Find Last Column
Dim lCol As Long
lCol = Cells(1, Columns.Count).End(xlToLeft).Column

Set sheet = ActiveWorkbook.ActiveSheet.Range("A" & Final & "", Cells(1, lCol ))
With sheet
.Interior.ColorIndex = 1
End With

Ответ №6

Возможно, это может сработать:

Sh.Range( “A1”, Sh.Range( “A” и Rows.Count).End(xlUp))

Ответ №7

Обращаясь к самому первому вопросу, я изучаю то же самое.
Результат, который я получаю, записывая макрос, начинается с выбора ячейки A76:

Sub find_last_row()
Range("A76").Select
Range(Selection, Selection.End(xlDown)).Select
End Sub

Ответ №8

Sub SelectAllCellsInSheet(SheetName As String)
lastCol = Sheets(SheetName).Range("a1").End(xlToRight).Column
Lastrow = Sheets(SheetName).Cells(1, 1).End(xlDown).Row
Sheets(SheetName).Range("A1", Sheets(SheetName).Cells(Lastrow, lastCol)).Select
End Sub

Использовать с ActiveSheet:

Call SelectAllCellsInSheet(ActiveSheet.Name)

Ответ №9

Другой способ выбора всех ячеек в диапазоне, если данные непрерывны, состоит в использовании Range("A1", Range("A1").End(xlDown).End(xlToRight)).Select.

Ответ №10

Я обнаружил, что метод “.UsedRange” на рабочем листе во многих случаях лучше для решения этой проблемы. Я боролся с проблемой усечения, которая является нормальным поведением метода .CurrentRegion. Использование [Worksheets (“Sheet1”). Range (“A1”). CurrentRegion] не дает желаемых результатов, когда рабочий лист состоит из одного столбца с пробелами в строках (и пробелы требуются). В этом случае “.CurrentRegion” будет обрезаться при первой записи. Я реализовал работу вокруг, но недавно нашел еще лучшую; см. код ниже, который позволяет скопировать весь набор на другой лист или идентифицировать фактический адрес (или только строки и столбцы):

Sub mytest_GetAllUsedCells_in_Worksheet()
Dim myRange

Set myRange = Worksheets("Sheet1").UsedRange
'Alternative code:  set myRange = activesheet.UsedRange

'use msgbox or debug.print to show the address range and counts
MsgBox myRange.Address
MsgBox myRange.Columns.Count
MsgBox myRange.Rows.Count

'Copy the Range of data to another sheet
'Note: contains all the cells with that are non-empty
myRange.Copy (Worksheets("Sheet2").Range("A1"))
'Note:  transfers all cells starting at "A1" location.
'       You can transfer to another area of the 2nd sheet
'       by using an alternate starting location like "C5".

End Sub

Источник

Капитан Экселя

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 13:39. Показов 41645. Ответов 23

Метки нет (Все метки)

Я Вас уже, наверное, достал, но мне нужна Ваша помощь.
В общем мне нужно в макросе прописать выделение диапазона ячеек, начиная с B4 и кончая последней заполненной. Напишите, пожалуйста, как это будет выглядеть для столбца и как для диапазона столбцов и строк.
Поиском нашёл такое:

Visual Basic

1	Range(Selection, Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)).Select

и подобие, но не пойму как указать начальную ячейку B4 и как указать поиск последней для столбца (вместо ActiveSheet.UsedRange.Columns.Count как указать номер столбца)?

Vlad999

3827 / 2254 / 751

Регистрация: 02.11.2012

Сообщений: 5,930

29.07.2015, 14:05

Сообщение было отмечено Капитан Экселя как решение

Решение

Visual Basic

1	Range("B4",Cells(Rows.Count,2).End(xlUp)).Select

Добавлено через 6 минут
если нет пустых строк и столбцов для нескольких строк и нескольких столбцов можно так.

Visual Basic

1	ActiveSheet.Range("B4").CurrentRegion.Select

Капитан Экселя

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 14:21

[ТС]

Vlad999,
Видимо не совсем корректно поставил задачу.
1. В приложенном файле нужно в макросе прописать выделение только закрашенного зелёным диапазона. Но конечная строка диапазона меняется. Нужно, чтобы он находил последнюю заполненную ячейку (могут в последней строке не во всех столбцах, закрашенных зелёным (ну в диапазоне «зелёном») быть заполненные ячейки).
2. Далее в коде делаю сортировку:

Visual Basic

ActiveWorkbook.Worksheets("Лист2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист2").Sort.SortFields.Add Key:=Range("B4:B300") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers

(начальная часть кода сортировки). Нужно в строке ActiveWorkbook.Worksheets(«Лист2»).Sort.SortFields .Add Key:=Range(«B4:B300») _ вместо Range(«B4:B300») _ прописать Range(«B4:последняя заполненная ячейка столбца B») _ . Прописываю как Вы сказали (
Range(«B4»,Cells(Rows.Count,2).End(xlUp)).Select), но почему-то не сортирует. Но если укажу конкретно Range(«B4:B300») — всё нормально сортирует.

Вложения

Выделение ячеек.xlsx (9.3 Кб, 51 просмотров)

Vlad999

3827 / 2254 / 751

Регистрация: 02.11.2012

Сообщений: 5,930

29.07.2015, 14:41

для сортировки в

Visual Basic

1	Range("B4",Cells(Rows.Count,2).End(xlUp)).Select)

Select не нужен.

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 14:50

[ТС]

Vlad999,
А по первому вопросу? «1. В приложенном файле нужно в макросе прописать выделение только закрашенного зелёным диапазона. Но конечная строка диапазона меняется. Нужно, чтобы он находил последнюю заполненную ячейку (могут в последней строке не во всех столбцах, закрашенных зелёным (ну в диапазоне «зелёном») быть заполненные ячейки).?

Добавлено через 1 минуту

Сообщение от Vlad999

Код Visual BasicВыделить код
1
Range(«B4»,Cells(Rows.Count,2).End(xlUp)).Select)

Не сортирует так. Если указать конкретный столбец (Range(«B4:B300»)) — сортирует. а так — не хочет.

3827 / 2254 / 751

Регистрация: 02.11.2012

Сообщений: 5,930

29.07.2015, 15:10

приложите файл с кодом.
П.С. напоминаю в xlsx макросы не жевут.

Добавлено через 3 минуты

Сообщение от Капитан Экселя

(начальная часть кода сортировки)

в продолжении тоже должен встречаться такой же диапазон, его тоже нужно прописывать динамическим.

Капитан Экселя

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 15:18

[ТС]

Vlad999,
В приложенном файле (диапазон выделен зелёным).
Так:

Visual Basic

Sub Макрос18()
'
' Макрос18 Макрос
'
 
'
    Range ("B4:E91").Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("C4:C91"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("B3:E91")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

работает, а так:

Visual Basic

Sub Макрос18()
'
' Макрос18 Макрос
'
 
'
    Range ("B4:E91").Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("C4", Cells(Rows.Count, 3).End(xlUp)) _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("B3:E91")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

нет. И как в приложенном файле в макросе выделить «зелёный» диапазон до последней заполненной в нём ячейки (как видите правее тоже есть столбцы с числами — их не трогаем)?

Вложения

Выделение ячеек.xlsx (11.7 Кб, 18 просмотров)

skol13

369 / 78 / 6

Регистрация: 23.05.2012

Сообщений: 232

29.07.2015, 16:28

Сообщение от Капитан Экселя

А по первому вопросу? «1. В приложенном файле нужно в макросе прописать выделение только закрашенного зелёным диапазона. Но конечная строка диапазона меняется. Нужно, чтобы он находил последнюю заполненную ячейку (могут в последней строке не во всех столбцах, закрашенных зелёным (ну в диапазоне «зелёном») быть заполненные ячейки).?

Ниже зеленого диапазона могут быть строки?

Добавлено через 16 минут

Сообщение от Капитан Экселя

Так работает, а так — нет.

А вы запятую забыли поставить вот здесь перед переносом:
вот так работает:

Visual Basic

1	ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("C4", Cells(Rows.Count, 3).End(xlUp)), _

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 16:36

[ТС]

Сообщение от skol13

Ниже зеленого диапазона могут быть строки?

Нет не могут. Но нижняя строка зелёного диапазона может сдвигаться.

Сообщение от skol13

вот так работает:

Вау, спасибо. А у меня красным выделяло. Оказывается я Энтер лишний нажал.

skol13

369 / 78 / 6

Регистрация: 23.05.2012

Сообщений: 232

29.07.2015, 16:51

Сообщение от Капитан Экселя

Нет не могут. Но нижняя строка зелёного диапазона может сдвигаться.

Ну так используйте решение, которое вам камрад Vlad999, в первом ответе показал.
Тем более, если количество столбцов в «зеленом диапазоне» не изменяется и оно известно.
Ставьте в

Visual Basic

1	Range("B4",Cells(Rows.Count,2).End(xlUp)).Select

нужную цифру последнего столбца диапазона и вперед

Добавлено через 3 минуты

Сообщение от skol13

Ставьте нужную цифру последнего столбца диапазона и вперед

А, не, стоп…
Столбец с комментариями не заполнен — выделяет фигню какую то

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 16:51

[ТС]

skol13,
Так а чем тогда этот код будет отличаться, если мой диапазон — 1 столбец?

369 / 78 / 6

Регистрация: 23.05.2012

Сообщений: 232

29.07.2015, 16:52

Почему один столбец?
Там вроде зеленым столбцов 5 закрашено…

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 16:52

[ТС]

Сообщение от skol13

1
Range(«B4»,Cells(Rows.Count,2).End(xlUp)).Select

Так выделит только один столбец. Не? А как тогда выделить один столбец?
У меня в оригинальном файле нет заливки цветом. Это я в примере подсветил для наглядности.

skol13

369 / 78 / 6

Регистрация: 23.05.2012

Сообщений: 232

29.07.2015, 17:06

Сообщение было отмечено Капитан Экселя как решение

Решение

Сообщение от Капитан Экселя

Так выделит только один столбец. Не? А как тогда выделить один столбец?

Один, да.
В вашем случае, если после последней нужной вам строки больше данных нет, и известно количество столбцов диапазона для выделения можно сделать так:

Visual Basic

1	Range("B4", Cells(ActiveCell.SpecialCells(xlLastCell).Row, 5)).Select

«5» — это номер последнего столбца для выделения. Меняя эту цифру можно выделить необходимое кол-во столбцов, от 1 до «сколько нужно»
Если «сколько нужно» — понятие переменное — тут надо смотреть уже дальше

Добавлено через 6 минут
И в личку можно не дублировать сообщения
Оповещение работает нормально

Капитан Экселя

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 17:08

[ТС]

В примере работает, а в оригинальном файле — нет. Вот файл и код (что написано в комментариях никому не говорить). Столбцы от B до E. Стиль ссылок у меня R1C1.

Visual Basic

Sub Макрос12()
'
' Макрос12 Макрос
'
 
'
    Range("B4", Cells(ActiveCell.SpecialCells(xlLastCell).Row, 5)).Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("C4", Cells(Rows.Count, 3).End(xlUp)), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Лист2").Sort
        .SetRange Range("B3:E554")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Вложения

Сравнение ПЕРЕМЕЩЕНИЙ.xlsx (37.5 Кб, 36 просмотров)

15 / 15 / 5

Регистрация: 01.12.2014

Сообщений: 117

29.07.2015, 17:14

Я не особо вчитывался в тему, не смотрел ответы, и не качал пример.
Но помоему это как-то связано.

Сообщение от Vlad999

приложите файл с кодом.
П.С. напоминаю в xlsx макросы не жевут.

Сообщение от Капитан Экселя

Вложения
Сравнение ПЕРЕМЕЩЕНИЙ.xlsx (37.5 Кб, 0 просмотров)

5 / 5 / 1

Регистрация: 27.07.2015

Сообщений: 88

29.07.2015, 17:15

[ТС]

Блин разобрался.

Добавлено через 30 секунд
сороконожка,

Неа. Макрос у меня в Персонале лежит.

15 / 15 / 5

Регистрация: 01.12.2014

Сообщений: 117

29.07.2015, 17:19

Сообщение от Капитан Экселя

Неа. Макрос у меня в Персонале лежит.

Ваш язык мне не понятен, ради интереса — скачал, поставил, запустил. Всё сработало. Отсортировало по дате.

369 / 78 / 6

Регистрация: 23.05.2012

Сообщений: 232

29.07.2015, 17:19

Сообщение от Капитан Экселя

что написано в комментариях никому не говорить

Хорошо, никому не скажу

Сообщение от сороконожка

Но помоему это как-то связано.

Не, не связано, но формат файла у ТС какой то странный, с двойным расширением. После xlsx идет обычный xls
Ексель ругается но вроде открывает
Без макросов конечно

Сообщение от Капитан Экселя

Блин разобрался.

Вопрос решен значит?

5590 / 1580 / 406

Регистрация: 23.12.2010

Сообщений: 2,366

Записей в блоге: 1

29.07.2015, 17:20

Непонятны метания между листами «Лист1» и «Лист2».
Зачем работаем с «Лист2» , ведь он пустой?

Источник

Выделение строк и столбцов в таблице Excel

Смотрите также и пользуюсь) всегда не так?(пробел), и содержимое отредактированной(Переход). То жеvlСохранить активную книгу. году. В каждойCtrl+End нажатия комбинации удастся мышкой с зажатойCtrlCtrl + Shift + с другом. таблицы. в столбец; ДваждыПримечание: срабатывает правильно.HugoВыделяет всю строку. ячейки будет скопировано

произойдёт при нажатии» и нажмитеF12 новой версии Excel– выделение последней выделить весь лист. левой кнопкой пои, не отпуская стрелка вниз

Для того, чтобы выделить	Можно также щелкните в
щелкнув его выделяетсяМы стараемся как	Hugo: У меня какЕсли эта статья оказалась во все выделенныеF5TabСохранить активную книгу с появлялись всё новые ячейки с данными;Теперь выясним, как выделить соответствующей группе секторов её, кликаем по. При этом выделится отдельную ячейку достаточно любом месте таблицы весь столбец таблицы. можно оперативнее обеспечивать: Я тоже проверил у ikki :) для Вас полезна, ячейки.. . В итоге Вы другим именем, открывает и новые клавиатурныеCtrl + Shift + отдельные диапазоны ячеек панели координат. сектору на горизонтальной весь столбец до
навести на неё	и нажмите клавишиМожно также щелкнуть любую вас актуальными справочными — всё выделяется.Как выделить только поделитесь ею со Ctrl+DCtrl+F получите « диалоговое окно комбинации, и, посмотрев
End на листе. Для	Также можно зажать кнопку панели координат каждого последнего элемента, в курсор и кликнуть CTRL + A, ячейку столбца и материалами на вашем Может где галка CurrentRegion с клавиатуры своими друзьями илиКопирует содержимое и форматОткрывает диалоговое окно =VLOOKUP(Save as на их полный– выделение ячеек того чтобы этоShift столбца, который нужно котором содержаться данные. левой кнопкой мыши. чтобы выбрать таблицу нажмите клавиши CTRL языке. Эта страница есть? Или от — даже не просто оставьте для первой ячейки выделенногоFind

support.office.com

Выделение ячеек в Microsoft Excel

«.(Сохранить как). список (более 200!), вниз до последней сделать достаточно обвестии произвести клик пометить. Важным условием для Также такое выделение данных в таблицу + ПРОБЕЛ или переведена автоматически, поэтому версии зависит? знаю, никогда не меня комментарий! диапазона в ячейки,(Найти).F4Ctrl+W

Вы можете испугаться. используемой;

Процесс выделения

курсором с зажатой по первому иПо аналогичному принципу выделяются выполнения данной процедуры можно провести, используя целиком, или нажмите щелкните первую ячейку

Способ 1: отдельная ячейка

ее текст можетikki задавался вопросом…Урок подготовлен для Вас находящиеся под ней.HomeПереключает между различными вариантамиЗакрыть активную книгу. Без паники! 20Ctrl + Shift + левой кнопкой мыши последнему сектору на и строки в является отсутствие пустых кнопки на клавиатуре кнопку большинство верхнюю в столбце таблицы

Способ 2: выделение столбца

содержать неточности и: ненужный мне вопрос,misha.name командой сайта office-guru.ru Если выделенный диапазонВозвращает к первой ячейке типа ссылки вCtrl+C

или 30 сочетаний Home определенную область на панели координат того Экселе. ячеек в данной кнопки навигации левую ячейку в и нажмите клавиши грамматические ошибки. Для в общем-то…: Спасибо Вам Shaitan

Источник: https://www.ablebits.com/office-addins-blog/2013/08/02/30-most-useful-excel-keyboard-shortcuts/ содержит более одного текущей строки на формуле. Поставьте курсорСкопировать содержимое выделенных ячеек клавиш для повседневной– выделение ячеек листе. диапазона строк, которыйДля выделения одной строки колонке таблицы. В«Вниз» таблице и нажмите CTRL + SHIFT нас важно, чтобыно интересно :) и The_Prist заПеревел: Антон Андронов столбца, то в листе. на адрес ячейки в буфер обмена.

работы будет вполне вверх до началаДиапазон можно выделить, зажав следует выделить. в таблице просто обратном случае, будет, клавиши CTRL + + Стрелка вниз. эта статья былафрагмент справки Ex

быстрый ответ!Автор: Антон Андронов каждом столбце копируетсяCtrl+Home и нажмите Ctrl+X

достаточно. Остальные предназначены листа. кнопкуЕсли нужно провести выделение проводим по ней отмечена только область«Вверх» SHIFT + END.Примечание: вам полезна. Просим

2002:Оба варианта подходят.misha.name вниз содержимое верхнейВозвращает к началу рабочегоF4Вырезать содержимое выделенных ячеек для очень специфичныхДанные варианты помогут значительноShift

Способ 3: выделение строки

разрозненных строк, то курсором с зажатой до первого пустого

,Нажмите клавиши CTRL + Один раз клавиши CTRL вас уделить паруКлавиши для выделения

Спасибо!: Подскажите, пожалуйста, макрос, ячейки. листа (ячейка A1)., чтобы выбрать нужный в буфер обмена.

задач, таких как сэкономить время нана клавиатуре и клик по каждому кнопкой мышки. элемента.«Вправо» A, два раза, + ПРОБЕЛ выделяются секунд и сообщить, данных и ячеекran который будет выделятьCtrl+Shift+VCtrl+End тип ссылки: абсолютный,

Ctrl+V написание макросов VBA, выполнении операций. последовательно кликнуть по из секторов на

Если таблица большая, тоЕсли нужно выделить не, чтобы выделить таблицу данные в столбце; помогла ли онаВыделение ячеек, строк,

: A это смотря таблицу так, какОткрывает диалоговое окноПереход к последней заполненной относительный или смешанныйВставить содержимое буфера обмена компоновки данных, управленияУрок:

верхней левой и вертикальной панели координат проще зажать кнопку просто колонку таблицы,«Влево» целиком, включая заголовки два раза клавиши вам, с помощью столбцов и объектов

Способ 4: выделение всего листа

где мышкой топнуть. если бы яPaste Special ячейке текущего рабочего (относительный столбец и в выделенную ячейку сводными таблицами, пересчётаГорячие клавиши в Экселе нижней правой ячейке делаем с зажатойShift а весь столбец

. таблицы. CTRL + ПРОБЕЛ кнопок внизу страницы.CTRL+ПРОБЕЛЕсли внутри CurrentRegion нажал ctrl+A. Пробовал(Специальная вставка), когда листа, то есть абсолютная строка, абсолютный (ячейки). больших рабочих книгКак видим, существует большое выделяемой области. Либо

Способ 5: выделение диапазона

кнопкойи последовательно кликнуть листа, то вДля того, чтобы отметитьДля того, чтобы производить выделяет весь столбец Для удобства такжеВыделение столбца целиком. — он и

через запись макроса, буфер обмена не нижняя строка крайнего столбец и относительнаяCtrl+Z и т.д. количество вариантов выделения выполнив операцию вCtrl по первой и этом случае нужно столбец в таблице, различные действия с таблицы. приводим ссылку на

SHIFT+ПРОБЕЛ выделится, а если но получается, если пуст. правого столбца. строка).Отменить последнее выполненное действие.Знаю, знаю! Это базовые ячеек и их обратном порядке: кликнуть. последней ячейке строки. просто кликнуть левой

Способ 6: применение горячих клавиш

нужно зажать левую содержимым ячеек Excel,Строка таблицы

 оригинал (на английскомВыделение строки целиком. снаружи — весь
 я потом добавлюCtrl+YF2
Ctrl+` Паническая кнопка! комбинации клавиш, и различных групп с по нижней левой
Существует два варианта этойТакже строки в таблицах кнопкой мыши по кнопку мыши и их нужно сначала

Щелкните левой границы строки языке) .CTRL+A

лист в таблицу столбцы

Повторяет последнее действие, еслиРедактировать выделенную ячейку.Переключает режимы отображения значенийCtrl+P многие из Вас помощью клавиатуры или и верхней правой процедуры для всего можно отметить подобным соответствующему сектору горизонтальной провести от самой выделить. Для этих таблицы. Чтобы указать,Можно выбрать ячеек иВыделение листа целиком.ikki и строки и это возможно.Alt+Enter

ячеек и формул.

lumpics.ru

30 самых полезных сочетания клавиш в Excel

Открывает диалоговое окно их отлично знают. мышки, а также ячейке массива. Диапазон, листа. Первый из образом, что и панели координат, где верхней ячейки колонки целей в программе что при щелчке диапазонов в таблицеHugo: логично :) запущу этот макрос,Ctrl+AВ режиме редактирования ячейкиCtrl+’Print Тем не менее, используя комбинацию этих находящийся между этими них заключается в столбцы. Кликаем по буквами латинского алфавита к нижней, где имеется несколько инструментов. выделяется строка появится

Самые полезные сочетания клавиш в Excel, без которых не обойдётся ни одна рабочая книга

так же, как: Попал :)но… неверно :( то они ужеВыделяет весь лист. Если ввести новую строкуВставляет формулу из находящейся(Печать).

 позвольте мне записать двух устройств. Каждый элементами, будет выделен. том, чтобы кликнуть первому элементу в помечены наименования столбцов. кнопку следует отпустить. Прежде всего, такое стрелка выделения для выбрать их наikkiэто я в

не выделеяются. Спасибо!	курсор в данный
(возврат каретки) внутри	выше ячейки в
Ctrl+1	их для начинающих
пользователь может подобрать	Также существует возможность выделения по прямоугольной кнопке, столбце, а затемЕсли нужно выделить несколькоЕсть и другой вариант
разнообразие связано с	следующих.
листе, но выбор	: да, так работает. первую очередь проверил,
Kestus	момент находится внутри ячейки.
текущую ячейку или	Открывает диалоговое окно пользователей. более удобный лично
разрозненных ячеек или	расположенной на пересечении набираем сочетание клавиш
столбцов листа, то	решения данной задачи. тем, что существуетЩелкните первую ячейку в

Форматирование данных

строк и столбцов	спасибо. перед тем как: ActiveSheet.Select
таблицы, то нажатие	Ctrl+; в строку формул.Format CellsЗамечание для начинающих: для себя стиль диапазонов. Для этого, вертикальных и горизонтальныхCtrl + Shift + проводим мышкой с

Работа с формулами

Зажимаем кнопку	необходимость выделения различных строке таблицы и таблицы отличается отполучается, всё-таки от постить.Range(Selection, Selection.End(xlToRight)).Select один раз приведётВводит текущую дату. НажатиеCtrl+F1(Формат ячеек).Знак «
выделения в конкретной	любым из вышеперечисленных координат. После этого стрелка вправо зажатой левой кнопкойShift групп ячеек (диапазонов, нажмите клавиши CTRL выбора листа строк версии Excel зависит?выделяются все ячейки.Range(Selection, Selection.End(xlDown)).Select к выделению таблицыCtrl+Shift+;
Показать / скрыть Ленту	Ctrl+T+
ситуации, ведь выделение	способов нужно выделять действия будут выделены. Строка выделится до по соответствующим секторам

Навигация и просмотр данных

на клавиатуре и	строк, столбцов), а + SHIFT + и столбцов.ran
Hugo	Выделяет все заполненые без заголовков и
вводит текущее время.	Excel. Скройте Ленту,Превращает выделенные ячейки в» означает, что клавиши одной или нескольких в отдельности каждую
абсолютно все ячейки	конца таблицы. Но панели координат. кликаем по верхней также потребность отметить Стрелка вправо.Чтобы выделить
: Я в 2007	: Не знаю, я ячейки ко правой строки итогов, второе
Ctrl+Enter	чтобы отобразить дополнительно таблицу. Вы можете должны быть нажаты
ячеек удобнее выполнять	область, которую пользователь на листе.
опять же, обязательным	Есть и альтернативное решение. ячейке столбца. Затем, элементы, которые соответствуютВсе строки и столбцыВыполните указанное действие

Ввод данных

прбовал. -)	весь лист истоптал
и нижней границы	нажатие выделит всюЗаполняет выделенные ячейки содержимым 4 строки данных. выбрать любую ячейку
одновременно. Клавиши	одним способом, а хочет обозначить, ноК этому же результату
условием в данном	Зажимаем кнопку не отпуская кнопку определенному условию. Давайте таблицыСтолбец таблицы с заголовкомПри этом создал — весь выделяется листа, начиная с таблицу, а третье текущей ячейкиCtrl+Tab в смежном диапазонеCtrl выделение целой строки при этом обязательно приведет нажатие комбинации случае является наличие
Shift	кликаем по нижней. выясним, как произвестиЩелкните в левом верхнем или без него несколько CurrentRegion. :) А1 на активном — весь лист.Пример:Переключиться на следующую открытую
данных, и нажатие	и или всего листа должна быть зажата клавиш данных во всех
и отмечаем первый	Можно производить действия данную процедуру различными

Выбор данных

углу таблицы. Чтобы	Щелкните верхний край заголовкаЗалезаешь внутрь любогоXL2000 листе.Ctrl+Homeвыделите несколько ячеек. рабочую книгу Excel. комбинацииAlt – другим. кнопка
Ctrl+A ячейках строчки. столбец в выделяемой	и в обратном способами. указать, что щелкнув
столбца или столбца — он и	ikki
ikki, а затем	Нажмите и удерживайте

Ctrl+PgDownCtrl+Tрасположены в нижнейАвтор: Максим ТютюшевCtrl. Правда, если в

Для выделения всей строки последовательности. Затем, не
порядке.
Скачать последнюю версию

выделяются данные в

office-guru.ru

Макрос для выделения таблицы

 в таблице. Чтобы выделяется, вылез -: Дмитрий, это понятно.: у меня нажатиеCtrl+Shift+EndCtrlПереключиться на следующий рабочийсоздаст из диапазона части основной клавиатурыMicrosoft Excel – это. это время курсор листа делаем клик отпуская кнопку, кликаем

Кроме того, для выделения Excel
таблицу целиком появится
указать, что выделение

весь лист.Я знаю, что в любой ячейкеВыделяет весь реально используемый, кликните по любой лист. Нажмите

 таблицу. слева и справа. очень мощное приложениеМожно производить выделение отдельных находится в диапазоне по соответствующему сектору по последнему сектору столбцов в таблицах
В процессе выделения можно стрелка выделения для

 столбца по щелчкуЮрий М такое CurrentRegion.
на листе Ctrl+A диапазон на текущем из выделенных ячеекCtrl+PgUpTab

Ctrl+N для работы с областей с помощью неразрывных данных, например,
вертикальной панели координат, панели координат в

 можно воспользоваться следующим использовать как мышь, следующих.
появится стрелка выделения: Проверил Ctrl+A наHugo, думаю, тоже приводит к выделению листе.

 и нажмите, чтобы перейти к
Автозавершение имени функции. Например,
Создать новую рабочую книгу. таблицами и очень горячих клавиш: в таблице, то
где отображается нумерация.

 последовательности колонок. алгоритмом. Выделяем первую так и клавиатуру.Щелкните левый верхний угол для следующих.

своём 2003: внутри

 знает. всего листа целиком,
Ctrl+SpaceF2
предыдущему рабочему листу. введите «

Ctrl+O давнее – егоCtrl+Home первоначально будет выделенаЕсли нужно выделить подобным

Если нужно выделить разрозненные ячейку колонки, отпускаем Существуют также способы,
таблицы два раза,Примечание: — только CurrentRegion,

пс. нажатие соответствующей т.е. всех столбцов(пробел)
для редактирования. После

Ctrl+G=

Открыть существующую книгу. первая версия появилась
– выделение первой только эта область.

образом несколько соседних
колонки листа, то
мышку и жмем
где эти устройства
чтобы выделить таблицу
Щелкнуть верхний край один

 снаружи — весь кнопки на панели

 и всех строк.Выделяет весь столбец.
этого нажмите
Открывает диалоговое окно«, затем символы «

Ctrl+S еще в 1984 ячейки с данными;
Лишь после повторного строк, то проводим
тогда зажимаем кнопку на комбинацию клавиш ввода комбинируются друг целиком, включая заголовки

 раз, выделяются данные лист. инструментов (чем, собственноа у васShift+SpaceCtrl+Enter

planetaexcel.ru

Go to

Источник

A1: Name	B1: Sales	C1: Quantity
A2: a	B2: $10	C2: 5
A3: b	B3:	C3: 10
A4: c	B4: $10	C4: 5
A5:	B5:	C5:
A6: Total	B6: $20	C6: 20

Video

About This Article

Is this article up to date?

Решение

Решение

Выделение строк и столбцов в таблице Excel

Выделение ячеек в Microsoft Excel

Процесс выделения

Способ 1: отдельная ячейка

Способ 2: выделение столбца

Способ 3: выделение строки

Способ 4: выделение всего листа

Способ 5: выделение диапазона

Способ 6: применение горячих клавиш

30 самых полезных сочетания клавиш в Excel

Самые полезные сочетания клавиш в Excel, без которых не обойдётся ни одна рабочая книга

Форматирование данных

Работа с формулами

Навигация и просмотр данных

Ввод данных

Выбор данных

Макрос для выделения таблицы

А вот еще интересные статьи: