Мета теми Microsoft Excel - шукати та надавати допомогу щодо проблем із Excel.
Будь ласка, прочитайте, перш ніж задавати питання, якщо ви ще цього не зробили.
Опублікувати активні теми
Здравствуйте!
Знову ж я просив би про вашу допомогу у VBA.
Діапазон містить об’єднані комірки з текстовим та числовим вмістом. Я повинен скопіювати це на інший аркуш, але без порожніх комірок.
Я думаю, нам слід обернути цей діапазон у двовимірний масив, а потім надрукувати змінений масив на іншому аркуші без порожніх значень.
Також додаю картину свого захоплення.
Звичайно, це робить це дещо складнішим та змістовнішим, але об’єднуються лише стовпці, а рядки - ні. Тому я повинен писати свої A1: F3 до A9: C11. Це було б частиною автоматизованого завдання, тому лише vba може вступити в гру.
Спасибі заздалегідь!
Відповісти на повідомлення p5quser # 45601
Я знаю (може бути помилковим), що вміст об’єднаних комірок завжди відноситься до верхньої лівої комірки. Отже, вам просто потрібно скопіювати стовпці "A", "C" і "E" в "A", "B", "C" (зі зміщенням у кілька рядків).
Відповідь на повідомлення Apollo17en # 45602
Я це теж знаю, але діапазон варіюється від декількох рядків до кількох сотень рядків, і стовпці також поділяються на 7 від 1 до 37, не однаково. Тож із більшим списком копіювання вже сповільниться. Тому я задумався про блокування. Я читав, це б багато кинуло на швидкість.
Відповісти на повідомлення p5quser # 45603
Програміст: професіонал, навчений писати та виправляти несправні програми. Ви маєте більше розуму, ніж ви.
Відповісти на повідомлення p5quser # 45603
Здравствуйте!
Ви отримуєте масив, присвоюючи значення.
Наприклад,.
Тьмяний атом ()
atomb = Значення діапазону ("A1: F3")
'Потім ви переглядаєте елементи масиву за рядками чи стовпцями. (Перший індекс - це рядок, другий - стовпець.)
'Те, що має значення, пишеться в наступній комірці, а пробіл залишається наодинці.
Dim i як ціле число, j як ціле число, k як ціле число, m як ціле число
k = 10: m = 1 'Копіювання починається зі стовпця A рядка 10
Для i = 1 до Ubound (атом, 1)
Для j = 1 до Ubound (атом, 2)
Якщо atom (i, j) <> " Тоді
Клітини (k, m). Значення = атом (i, j)
k = k + 1
Завершити якщо
Далі j
k = k + 1: m = 1
Далі i
Привіт.
відповідь на повідомлення Delila_1 # 45604
Дякую!
Його проблема з цим полягає в тому, що нові значення завжди повинні починатися з останнього рядка аркуша work2, і якщо я підставляю номер останнього рядка, він записує всі значення в один рядок на аркуші work2. Звичайно, номег діапазону, який потрібно скопіювати, також варіюється за довжиною, хоча він завжди починається з однієї точки (A10).
Відповісти на повідомлення Fferi50 # 45605
Дякую теж!
Це моя проблема з ним;
Думаю, мені слід пограти з кількістю колон, але я просто дивлюсь на це скляними очима.
(Можливо, я теж виділю слину)
Відповісти на повідомлення p5quser # 45606
Клітини (k, m). Значення = атом (i, j)
m = m + 1
Мені просто довелося трохи подумати, а не плакати.
Щиро дякую, що робите свою роботу.
Зі святом вас!
Відповісти на повідомлення p5quser # 45608
Здравствуйте!
Вибачте, я це написав. По-моєму це було m = m + 1. Але тут до Next j ми вже мали k. Я просто скопіював решту.
З Різдвом і вас!
Здравствуйте,
У таблиці вкладок Office 360 Excel смуга прокрутки майже не рухається, коли я рухаюся вниз по столу, прокручуючи мишу або рахунок. зі стрілкою.
У ньому є багато об’єднаних комірок, але я не думаю, що ще стикався з цією проблемою.
Якщо я схоплю візок (я не знаю, як це раптом зараз називається), він перескочить 1000 рядків на дошці або більше, але більше, тому що ним не можна користуватися так м'яко.
Я хотів би знати, що може спричинити це?
Дякую
Я хотів би попросити допомоги, щоб дізнатись, чи можете ви знайти більш просте та швидше вирішення проблеми нижче.
Є 20-30 електронних таблиць Excel на місяць, які завжди містять однакову кількість (14) стовпців, але кількість рядків змінюється. В даний час я вибираю рядки в кожній таблиці, а потім використовую CTRL + C, CTRL + V, щоб скопіювати їх один під одним в нову таблицю.
Чи існує для цього автоматизована функція?
На машині є офіс 2007 року угорською мовою.
Заздалегідь дякую, якщо можете допомогти!
Відповісти на повідомлення sopruk # 45611
На ньому можна написати макрос.
Відповісти на повідомлення sopruk # 45611
Як mdk01 написав, на ньому можна написати макрос. Однак є кілька речей, які потрібно знати.
Таблиця 20-30 міститься в 1 буклеті або 20-30?
Якщо на 1, 1 аркуші або 20-30?
Яке точне місце розташування (наприклад, A1: N .)?
Де знаходиться підсумкова таблиця (в іншому буклеті, на іншому аркуші, в якій області)?
Програміст: професіонал, навчений писати та виправляти несправні програми. Ви маєте більше розуму, ніж ви.
Здравствуйте,
Для діаграми (наприклад, лінії) я хочу, щоб значення були вертикальними (таким чином повернуті на 90 градусів).
Є рішення для цього?
Дякую за допомогу також заздалегідь
Huawei P30 Pro 8/128 ГБ - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
Відповісти на повідомлення andreas49 # 45614
Переверніть монітор
Можливо, обмінятися даними?
Дивно, де вже є наука!
відповідь на повідомлення Delila_1 # 45613
Для кожного з 20-30 є окремі таблиці
Він містить дані від комірок А1 до N1, рядок за рядком
Однак кількість рядків змінюється. Вам доведеться взяти лише 1-2, але навіть 20-30 рядків.
Я створюю зведену таблицю з порожньою таблицею і починаю копіювати з комірки А1.
відповідь на повідомлення lappy # 45615
Навіть якщо я його заміню, він все одно відображається таким чином.
Тож це не читається
Huawei P30 Pro 8/128 ГБ - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
Відповісти на повідомлення andreas49 # 45617
Здравствуйте!
Вам справді потрібна лінійна діаграма? Подивіться на гістограму чи стовпчасту діаграму, я думаю.
Привіт.
Відповісти на повідомлення Fferi50 # 45618
Вони теж не виглядають краще
Huawei P30 Pro 8/128 ГБ - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
Відповідь на повідомлення Andreas49 # 45619
Здравствуйте!
Що не так з ним?
Якщо невідповідність міток є проблемою, напр. Ви можете змінити одиницю виміру на осі:
Форматування осі - порядок величини. Тут ви можете вибрати, як це буде виглядати.
Крім того, можна мати ярлик на кожну секунду, або ви можете змінити місце появи - один вгорі, інший внизу або посередині.
Привіт.
Відповісти на повідомлення sopruk # 45616
Потрібно уточнити поняття. Буклет - це файл, який має xls. розширення.
Робочий аркуш - це вкладка під назвою Work1, Sheet1 або як вона ще називається.
На кожній вкладці можуть бути таблиці, а на будь-якій вкладці - більше.
Таблиця - це те, що ви описали як рядок адреси в діапазоні A1: N1 та різну кількість рядків. З цього опису випливає, що їх немає на 1 сторінці, оскільки тоді їх заголовки не могли бути там же.
Тепер все, що вам потрібно знати, це те, що таблиці містять 1 буклет, 20-30 сторінок або 20-30 буклетів.
Якщо у вас є 1 буклет, наступне питання полягає в тому, чи існує сторінка, крім цих сторінок - крім сторінки з підсумками.
Якщо вони знаходяться в окремих буклетах, який шлях до них (у якій папці) і як їх можна відкрити?.
Програміст: професіонал, навчений писати та виправляти несправні програми. Ви маєте більше розуму, ніж ви.
відповідь на повідомлення Delila_1 # 45621
Ну так, я здогадався, що збирався неправильно витлумачити одне з понять.
Коли я навчався понад 20 років тому, у мене ще не було назви Буклет, або я просто не звертав пильної уваги
Так що так, існує 20-30 окремих буклетів із таблицями. У кожного лише одне Вухо.
Оскільки машина буде переінстальована найближчим часом, я створив шлях, який зможу створити на будь-якому комп'ютері:
c: \ Витяги \
Я завжди можу скопіювати їх тут на час злиття.
Зазвичай я створюю окремий буклет для підсумкової таблиці.
Щиро дякую, що знайшли час допомогти.
Відповісти на повідомлення sopruk # 45622
Я написав на ній макрос із кролячим хвостом.
Я назвав буклет, що містить макрос Summarize.xlsm. Якщо у вас немає цього імені, перепишіть його в рядок, позначений 5 зірками!
Якщо ви не хочете видаляти попередні дані, видаліть два рядки з багатьма зірочками.
Помістіть його в модуль, як ви можете прочитати в Змісті тем.
Sub Osszemasolas ()
Приглушити WB як робочу книгу, іде як ціле число, FN
Встановити WB = ActiveWorkbook
Конст-шлях = "C: \ Витяги \"
'Видалити попередні дані *************
WB.Sheets (1) .Range ("A1"). CurrentRegion.Offset (1) .ClearContents '*************
Application.DisplayAlerts = Неправильно
Application.ScreenUpdating = Неправильно
Маршрут ЧДір
FN = Dir (шлях & "* .xls *", vbNormal)
Роби
Якщо FN <> "." І FN <> "." І FN <> "Summary.xlsm" Потім '*****
ide = WB.Sheets (1) .Range ("A" & Rows.Count) .End (xlUp) .Row + 1
Відкрити ім'я файлу: = шлях & FN
Аркуші (1). Діапазон ("A1"). CurrentRegion.Offset (1). Копіюйте WB. Аркуші (1). Діапазон ("A" & ide)
ActiveWindow.Close
Завершити якщо
FN = Dir ()
Петля до FN = "
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Кінець Sub
Програміст: професіонал, навчений писати та виправляти несправні програми. Ви маєте більше розуму, ніж ви.