¿Cómo extraer datos de un cuadro o gráfico en Excel?
Extraer datos del gráfico con VBA
Extraer datos del gráfico con VBA
1. Debe crear una nueva hoja de trabajo y cambiarle el nombre como Datos del gráfico. Ver captura de pantalla:
2. Luego seleccione el gráfico del que desea extraer datos y presione Alt + F11 teclas simultáneamente, y un Microsoft Visual Basic para aplicaciones estallidos de ventana.
3. Hacer clic en recuadro > Módulo, luego pegue debajo del código VBA en la ventana emergente Módulo ventana.
VBA: extrae datos del gráfico.
Sub GetChartValues()
'Updateby20220510
Dim xNum As Integer
Dim xSeries As Object
On Error Resume Next
xCount = 2
xNum = UBound(Application.ActiveChart.SeriesCollection(1).Values)
Application.Worksheets("ChartData").Cells(1, 1) = "X Values"
With Application.Worksheets("ChartData")
.Range(.Cells(2, 1), _
.Cells(xNum + 1, 1)) = _
Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
End With
For Each xSeries In Application.ActiveChart.SeriesCollection
Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name
With Application.Worksheets("ChartData")
.Range(.Cells(2, xCount), _
.Cells(xNum + 1, xCount)) = _
Application.WorksheetFunction.Transpose(xSeries.Values)
End With
xCount = xCount + 1
Next
End Sub
4. Luego haga clic Ejecutar botón para ejecutar el VBA. Ver captura de pantalla:
Luego puede ver que los datos se extraen a Datos del gráfico hoja.
Consejo:
1. Puede formatear las celdas que necesite.
2. Los datos del gráfico seleccionado se extraen a la primera celda de la hoja ChartData por defecto.
Consejo: Si usualmente usa gráficos complejos en Excel, lo cual será problemático ya que los crea muy a tiempo, aquí con el Texto automático herramienta de Kutools for Excel, solo necesita crear los gráficos la primera vez, luego agregar los gráficos en el panel de Autotexto, luego, puede reutilizarlos en cualquier lugar en cualquier momento, lo que solo necesita hacer es cambiar las referencias para que coincidan con sus necesidades reales. Haga clic para descargarlo gratis ahora. |
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!