Мне нужно передать или переместить значение столбца F до последней ячейки со значением в столбец D, если столбец C равен «RRR». Я не могу выделить или выбрать диапазон, начиная от местоположения «RRR» до последней ячейки со значением «SSS». Вместо этого он выбирает диапазон от C4: C9, что неверно.
Dim ws As Worksheet, lRow As Long
Set ws = ThisWorkbook.ActiveSheet
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
Dim lCol As Long
With ws
For x = 1 To lRow
If .Cells(x, 3).Value = "RRR" Then
lCol = Cells(x, Columns.Count).End(xlToLeft).Column
Range("C" & x & ":C" & lCol).Select
End If
Next x
End With
Пример: 
Ожидаемое :
Может ли кто-нибудь рассказать мне о проблеме в моем коде.
2
23 Окт 2018 в 17:27
2 ответа
Лучший ответ
Вы очень близко, нужно изменить только выбранный диапазон.
Таким образом, вы можете расширить свой ассортимент:
Range(A1:D1) -> Range(Cells(A1), Cells(D1)) ->
Range(Cells(row number, column number), Cells(row number, column number)) ->
Range(Cells(1, 1), Cells(1, 4))
Это должно сделать трюк:
Dim ws As Worksheet, lRow As Long
Dim x As Long
Set ws = ThisWorkbook.ActiveSheet
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
Dim lCol As Long
With ws
For x = 1 To lRow
If .Cells(x, 3).Value = "RRR" Then
lCol = Cells(x, Columns.Count).End(xlToLeft).Column 'Find the last column number
Range(Cells(x, 6), Cells(x, lCol)).Cut Cells(x, 4) 'Cut from row x and Column F (Column F = 6) to row x and column "lCol". Then paste the range into row x and column 4.
End If
Next x
End With
End Sub
4
23 Окт 2018 в 14:50
Альтернативный метод - удалить ячейки в столбцах D и E.
Dim ws As Worksheet, lRow As Long
Dim x As Long
Set ws = ThisWorkbook.ActiveSheet
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
Dim lCol As Long
With ws
For x = 1 To lRow
If .Cells(x, 3).Value = "RRR" Then .Range("C" & x & ":D" & x).Delete Shift:=xlToLeft
End If
Next x
End With
End Sub
3
23 Окт 2018 в 14:57