Выберите диапазон «не работает»

Question

Я попытался выбрать один диапазон в Excel, первый столбец которого заполнен непрерывными данными (10-20 строк), а в диапазоне могут быть пустые ячейки. Я записал один макрос, но когда я запускаю его, он не работает.

Где ошибка?

'Range("A2").Select 
Range(Selection, Selection.End(xlDown)).Select 
Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlToRight)).Select` 

Answer 1

В таблице были пустые ячейки в C2, E2

'Sub Macro2()

Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer 
Dim currentRowValue As String 

Sheets("Sheet2").Select 
Range("A2").Select 
Range(Selection, Selection.End(xlDown)).Select -Select first Column until exists data 
Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlToRight)).Select -Did not make step over C2 (empty cell) 
Range(Selection, Selection.End(xlToRight)).Select 

Selection.Copy 
Sheets("Sheet3").Select 
Range("A1").Select 


sourceCol = 1 
rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row 

    For currentRow = 1 To rowCount + 1 
    currentRowValue = Cells(currentRow, sourceCol).Value 
    If IsEmpty(currentRowValue) Or currentRowValue = "" Then 
     Cells(currentRow, sourceCol).Select 
    End If 
Next 

ActiveSheet.Paste 
Sheets("Sheet2").Select 
Range("A2:A100").Select 
Application.CutCopyMode = False 
Selection.ClearContents 
Range("C2:C100").Select 
Selection.ClearContents 
ActiveWorkbook.Save 
Range("A2").Select 
End Sub' 

Answer 2

Вы могли бы попробовать что-то вроде этого (вы можете изменять это немного)

Cells(ActiveCell.Row, 1000).Select 
Selection.End(xlToLeft).Select 
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, ActiveCell.Column)).Select 
Range(Selection, Selection.End(xlDown)).Select 

Вместо того, чтобы пытаться продолжать идти через, пока вы не попали в окончательный кювету - это начинается в 1000 колонок справа выбирает диапазон от столбца один к последнему заполненному (независимо от пробелов)

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

Вы можете, однако, адаптировать код, сделать то же самое для строк.

Answer 3

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

Кажется, что вы хотите, чтобы Excel был эквивалент CTRL + Shift + Вниз, Вправо, Вправо, Вправо. То, что на самом деле делает код, это Ctrl + [клавиша со стрелкой], затем развернуть исходный выбор в эту новую ячейку. Microsoft сообщает нам, что CTRL + [ArrowKey] приближает нас к краю текущей области. В качестве иллюстрации:

Так, так как у вас есть выбранный диапазон вы будете только повторный выбор того же диапазона каждый раз!

Что может быть решением для вас использует последний столбец при попытке выбрать диапазоны, которые требуют призывающих .End(xlToRight) несколько раз:

'Range("A2").Select 
Range(Selection, Selection.End(xlDown)).Select 
Range(Selection, Selection.Cells(1,Selection.Columns.Count).End(xlToRight)).Select 
Range(Selection, Selection.Cells(1,Selection.Columns.Count).End(xlToRight)).Select 
Range(Selection, Selection.Cells(1,Selection.Columns.Count).End(xlToRight)).Select 

что эквивалентно нажатию CTRL + Shift + вниз, вправо, вправо ,Правильно.

Позвольте мне знать, если у вас есть больше проблем :)