Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 15, средняя оценка - 4.73
nap2k
0 / 0 / 0
Регистрация: 27.09.2009
Сообщений: 74
#1

Как узнать в Excel последний столбец и строку в которых есть данные? - VBA

27.09.2009, 13:21. Просмотров 2179. Ответов 4
Метки нет (Все метки)

Сабж.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2009, 13:21
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Как узнать в Excel последний столбец и строку в которых есть данные? (VBA):

Excel: данные записываются только в последний столбец - VBA
Set TestWorkbook = Workbooks.Open(FileName:=NewFileName) Worksheets("Лист1").Select For j = 1 To 2 For i = 1 To 8 Step 1 ...

Поменять местами строку и столбец, в которых находится максимальный элемент - VBA
Задан массив А(N,N). Поменять местами строку и столбец ,в которых находится максимальный элемент. Все элементы,которые больше максимального...

Массив: переставить местами столбец с наибольшим количеством нулевых элементов и столбец последний по порядку - VBA
Друзья, помогите плиз сделать лабу в VBA) Написать процедуру. Для заданного массива В(4,5), переставить местами столбец с наибольшим...

Удалить из матрицы строку и столбец, на пересечении которых находится минимальный элемент - VBA
Нужна помощь с задачками по VBA Сформировать двумерный массив. Удалить из него строку и столбец, на пересечении которых находится...

Обнулить строку и столбец матрицы, на пересечении которых находится её максимальный элемент - VBA
Не мог бы кто-нибудь помочь переписать такой код только для VBA пожалуйста Var x: Array of Integer; i,j,n,imax,jmax: Byte; ...

Строку и столбец матрицы, на пересечении которых находится мин. элемент, заменить нулями - VBA
Ввести массив A(N,M). Найти минимальный элемент матрицы .Все элементы строки и столбца ,на пересечении которых он находится ,заменить...

4
max_crt
0 / 0 / 0
Регистрация: 26.08.2009
Сообщений: 89
27.09.2009, 15:47 #2
<Ctrl>+<End>
0
Штурмaн
0 / 0 / 0
Регистрация: 27.04.2009
Сообщений: 265
28.09.2009, 08:56 #3
последняя строка
номер = Application.CountA(ActiveSheet.Columns(1))
последний столбец не знаю
но это работает если в первом столбце нет пустых ячеек,можно проверять по любому столбцу,изменив число в скобках
0
Savelev
28.09.2009, 11:40 #4
Возвращает последную ячейку
Visual Basic
1
ActiveCell.SpecialCells(xlLastCell)
но не всегда корректно работает.
поэтому далее

Для 97 офиса
можно использовать в цикле
Application.CountA(Rows(lLast)) возвращает количество непустых ячеек в строке. Аналогично для колонки.

Пример (для строки)
Visual Basic
1
2
3
4
lLastRow = ActiveCell.SpecialCells(xlLastCell).Row
Do While Application.CountA(Rows(lLastRow))=0 and lLastRow>0
lLastRow = lLastRow-1
Loop
Для 2000
Можно перед использованием обратится к обьекту UsedRange, после чего возвращает корректное значение последней ячейки.

Пример
Visual Basic
1
2
ActiveSheet.UsedRange.Select
lLastRow = ActiveCell.SpecialCells(xlLastCell).Row
nap2k
0 / 0 / 0
Регистрация: 27.09.2009
Сообщений: 74
28.09.2009, 12:24  [ТС] #5
Спасибо, последний вариант как раз то что нужно
0
28.09.2009, 12:24
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2009, 12:24
Привет! Вот еще темы с ответами:

Исключить строку и столбец, на пересечении которых находится минимальный элемент главной диагонали - VBA
Задана матрица n*n. Исключить строку и столбец, на пересечении которых находится минимальный элемент главной диагонали. Не могу понять...

Удалить из матрицы строку или столбец, на пересечении которых расположен наименьший по модулю элемент - VBA
Ребята помоги , нашел много примеров на вашем форуме, но не могу адаптировать под VBA.

Как узнать последний символ строки? - VBA
Как узнать последний символ строки? Т.е. то что на паскале я написал бы так: ch:=s;

Как програмно узнать последний сегодня день месяца или нет? - VBA
Ребята подскажите пожалуйста как програмно узнать последний сегодня день месяца или нет??? Заранее спасибо


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.