Bucle para decidir la primera y la última fila de entradas diferentes en la columna A
Kickk05
Estoy buscando un código de bucle que me proporcione la primera y la última fila de un 'Nombre' en la columna A.
A
1 Phill
2 Phill
3 Phill
4 Phill
5 Phill
6 Phill
7 Matthew
8 Matthew
9 Matthew
10 Matthew
11 Hendry
12 Hendry
13 Hendry
etc. etc.
Los resultados deberían ser algo como esto en otra hoja:
A B C
1 Name Start_Row End_Row
2 Phill 1 6
3 Matthew 7 10
4 Hendry 11 13
5 etc. etc. etc.
Experimenté con diferentes bucles, pero parece que no puedo obtener el buen código de bucle que me permite comenzar. Esto es lo que tengo:
If wsData.Cells(i + DOF, 1) <> curName Then
wbMain.Activate
For i = 1 To LastRow
curName = wsData.Cells(i + DOF, 1).Value
NameCount = NameCount + 1
wbWellsTable.Sheets("Sheet1").Cells(NameCount + 1, 1) = wbMain.Sheets("Data").Rows(i + DOF)
Start_Row = wsData.Cells(i + DOF, 1).Value
Counter = Counter + 1
wbWellsTable.Sheets("Sheet1").Cells(Counter + 1, 2) = wbMain.Sheets("Data").Rows(i + DOF)
End_Row = wsData.Cells(i + DOF, 1).Value
Bounter = Bounter + 1
wbWellsTable.Sheets("Sheet1").Cells(Bounter + 1, 3) = wbMain.Sheets("Data").Rows(i + DOF)
Next i
End If
¡Espero que ustedes puedan ayudarme!
Márk Mátray
Con VBA:
Option Explicit
Sub rowfinder()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim currentName As String
Dim currentMin As Integer
Dim startRow As Integer
Dim startColumn As Integer
Dim outputColumn As Integer
Dim outputRow As Integer
Set ws = ThisWorkbook.Worksheets(1)
startRow = 2
startColumn = 1
outputColumn = 2
outputRow = 2
ws.Cells(startRow + 1, startColumn).End(xlDown).Select
Set rng = ws.Range(ws.Cells(startRow + 1, startColumn), ws.Cells(startRow + 1, startColumn).End(xlDown))
currentName = ws.Cells(startRow, startColumn).Value
currentMin = Cells(startRow, startColumn).Row
ws.Cells(outputRow, outputColumn).Value = currentName
ws.Cells(outputRow, outputColumn + 1).Value = currentMin
For Each cell In rng
If cell.Value <> currentName Then
ws.Cells(outputRow, outputColumn + 2).Value = cell.Row - 1
currentName = cell.Value
currentMin = cell.Row
outputRow = outputRow + 1
ws.Cells(outputRow, outputColumn).Value = currentName
ws.Cells(outputRow, outputColumn + 1).Value = currentMin
End If
Next cell
Set cell = rng.End(xlDown)
ws.Cells(outputRow, outputColumn + 2).Value = cell.Row
End Sub
Este artículo se recopila de Internet, indique la fuente cuando se vuelva a imprimir.
En caso de infracción, por favor [email protected] Eliminar
Editado en
Artículos relacionados
TOP Lista
- 1
¿Cómo ocultar la aplicación web de los robots de búsqueda? (ASP.NET)
- 2
Kibana 4 , making pie chart , error message
- 3
Manera correcta de agregar referencias al proyecto C # de modo que sean compatibles con el control de versiones
- 4
récupérer les noms de clés depuis Firebase react-native
- 5
OAuth 2.0 utilizando Spring Security + WSO2 Identity Server
- 6
Cómo eliminar o caducar las cookies en Chrome usando asp.net
- 7
desbordamiento: oculto no funciona al hacer zoom en un iframe de YouTube usando transformar
- 8
Cómo extraer una palabra clave (cadena) de una columna en pandas dataframe en python
- 9
Link library in Visual Studio, why two different ways?
- 10
선언되지 않은 유형 'MessagingDelegate'사용
- 11
actualizar el contenido de la vista de reciclaje falla en la hoja inferior
- 12
Ver todos los comentarios en un video de YouTube
- 13
Problema con la vista de impresión de PDF
- 14
¿Cómo pintar el Dropline de un RowHeader-JTable en el Main-JTable durante un DragAndDrop?
- 15
Pregunta de fórmula de desplazamiento y transposición de Excel / Google Sheets
- 16
¿Cómo puedo hacer accesible la información de color en tablas HTML?
- 17
¿Cómo generalizar el JSON en el procedimiento almacenado?
- 18
Recortar fotos rectangulares de escaneos en OpenCV con Python
- 19
2D 배열에 대한 Numpy 요소 별 평균 계산
- 20
Typescript의 "window"전역 개체에 "adsbygoogle"애드 센스 속성을 추가하는 방법은 무엇입니까?
- 21
Error: la ejecución falló para la tarea ': app: compileDebugJavaWithJavac'. java.io.FileNotFoundException:
Déjame decir algunas palabras