Note: The other languages of the website are Google-translated. Back to English

Як витягти дані з діаграми або графіку в Excel?

doc-Extract-chart-data-1
В Excel ми зазвичай використовуємо діаграму, щоб показати дані та тенденції для більш чіткого перегляду, але іноді, можливо, діаграма є копією, і у вас немає оригінальних даних діаграми, як показано на знімку екрана нижче. У цьому випадку вам може знадобитися витягти дані з цієї діаграми. Зараз у цьому підручнику йдеться про вилучення даних із діаграми чи графіку.
Витяг даних із діаграми за допомогою VBA

стрілка синя права міхур Витяг даних із діаграми за допомогою VBA

1. Вам потрібно створити новий аркуш і перейменувати його як ChartData. Дивіться знімок екрана:

doc-Extract-chart-data-5

2. Потім виберіть діаграму, з якої потрібно витягти дані, та натисніть Alt + F11 одночасно клавіші та a Microsoft Visual Basic для додатків спливаючі вікна.

3. клацання Insert > Модулі, потім вставте нижче код VBA до спливаючого вікна Модулі вікна.

VBA: Витяг даних із діаграми.

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 Потім натисніть прогін для запуску VBA. Дивіться знімок екрана:

doc-Extract-chart-data-2

Потім ви можете бачити, як дані витягуються до ChartData аркуш
doc-Extract-chart-data-3

Порада:

1. Ви можете відформатувати комірки, як вам потрібно.

doc-Extract-chart-data-4

2. Дані вибраної діаграми за замовчуванням витягуються до першої комірки аркуша ChartData.


Порада: Якщо ви зазвичай використовуєте складні діаграми в Excel, що буде складним завданням, оскільки ви створюєте їх дуже довго, ось тут Автотекст інструмент Kutools для Excel, вам просто потрібно створити діаграми спочатку, потім додати діаграми на панелі автотексту, потім, ви можете повторно використовувати їх у будь-якому місці в будь-який час і вам потрібно лише змінити посилання відповідно до ваших реальних потреб.  Клацніть для безкоштовного завантаження зараз.
doc умовне форматування стовпчаста діаграма з накопиченням 12


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (17)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Доброго дня, здається, я зіткнувся з помилкою Run-tome '-2147467259 (80004005)' Метод 'XValues' об'єкта 'series failed'
Цей коментар був мінімізований модератором на сайті
Дякую. Це було дуже корисно!
Цей коментар був мінімізований модератором на сайті
Чудова команда, дуже дякую! Я використовував його зі зведеною діаграмою, і він працює!
Цей коментар був мінімізований модератором на сайті
дає мені значення, які я створив у діаграмі з не всіма значеннями в діапазоні
Цей коментар був мінімізований модератором на сайті
Дуже корисно і ідеально
Цей коментар був мінімізований модератором на сайті
Мені не вдалося отримати ціни діаграми фонду на моєму Mac Excel 2011. Помилка часу виконання "91" змінна об'єкта або змінна блоку не встановлено. Не знаю, як налагодити. Цінуйте будь-яку допомогу.
Цей коментар був мінімізований модератором на сайті
Здається, це не працює для діаграми розсіювання, оскільки витягує лише один набір даних "x". Як я можу змінити його, щоб витягти всі набори даних "x"?
Цей коментар був мінімізований модератором на сайті
Вибачте, я не знайшов рішення щодо цього.
Цей коментар був мінімізований модератором на сайті
Я також пробував використовувати графік точкової діаграми, але отримав лише один рядок доблесті.


Мені потрібно так багато, щоб знайти спосіб витягнути дані з графіків розсіювання.
Цей коментар був мінімізований модератором на сайті
я отримую помилку нижче під час виконання цієї команди.
ця помилка виникає в тій команді, яка починається з xnum = UBound(......) тощо

Помилка під час виконання "91"
об’єктна змінна або змінна блоку не встановлена
Цей коментар був мінімізований модератором на сайті
Привіт, tarshul, вам потрібно створити новий аркуш з назвою ChartData, перш ніж запускати код, дані будуть розміщені в новому аркуші ChartData.
Цей коментар був мінімізований модератором на сайті
Привіт сонечко,
Я вже створив новий аркуш, як ви сказали, але все ще отримую ту саму помилку.
Цей коментар був мінімізований модератором на сайті
я спробував вище, і він каже "Помилка компіляції: метод або член даних не знайдено"
Цей коментар був мінімізований модератором на сайті
mong mọi người giúp đỡ làm cách nào để lấy số liệu từ biểu đồ này với ạ!
Цей коментар був мінімізований модератором на сайті
видає помилку та вказує встановити змінні блоку та об’єктні змінні
Цей коментар був мінімізований модератором на сайті
Привіт, я оновив VBA, ви можете спробувати ще раз.
Цей коментар був мінімізований модератором на сайті
Дуже корисний! Дуже дякую!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця