Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Smerd
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос для диагональной замены значений на "0", Копирование значений с построчной заменой значений
 
#
28.07.2014 16:01:08
Всем большое спасибо, все работает, как и было нужно.
То что нашлось такое простое решение - это прекрасно!
 
Перейти    
Макрос для диагональной замены значений на "0", Копирование значений с построчной заменой значений
 
#
28.07.2014 15:45:28
Добрый день, уважаемые форумчане.

У меня появилась такая проблема, которую никак не получается решить:
необходимо копировать матрицу со значениями из одного листа книги в другой лист. При этом, при копировании построчно меняются значения на "0" во всех столбцах,начиная со второго.
Написал сложно, надеюсь станет понятно в примере, который прилагаю. Так же необходимо уточнить, что размер матрицы со значениями может быть любым, от 10 до 1000 и больше.
Спасибо всем, кто откликнется!
 
Перейти    
Копировать столбец значений из одного листа в четные столбцы другого листа, макросом
 
#
24.04.2014 11:22:15
anvg, спасибо большое! все получилось!
Единственное, если я для удобства заменил ThisWorkbook на ActiveWorkbook, чтобы можно было из личной книги макросов его использовать для разных листов
 
Перейти    
Копировать столбец значений из одного листа в четные столбцы другого листа, макросом
 
#
24.04.2014 09:50:08
Может, кто-то знает какое условие мне надо задать в цикле, вместо этого:

Код
Do While Sheets(2).Column(x).Value <> ""
 
Перейти    
Копировать столбец значений из одного листа в четные столбцы другого листа, макросом
 
#
23.04.2014 15:22:37
vikttur, спасибо, а я перебирал сидел,
может и по макросу подскажите, как его правильно зациклить и написать условие выполнения. Вариантов в голове несколько, но реализации не поддаются, получается каша какая-то(
 
Перейти    
Копировать столбец значений из одного листа в четные столбцы другого листа, макросом
 
#
23.04.2014 15:04:58
Попробовал подойти к делу с другого конца, но все равно где-то я что-то недопонимаю(
Код
Sub копирование()
Dim x As Integer, y As Integer
x = 1
y = 2
    Do While Sheets(2).Column(x).Value <> ""
    Sheets(2).Column(x).Select
    Selection.Copy Destination:=ActiveWB.Sheets(1).Column(y)
    x = x + 1
    y = y + 2
    Loop
End Sub
макрос опять не работает, все изза желание делать цикл до момента пока кончатся значимые значения
 
Перейти    
Копировать столбец значений из одного листа в четные столбцы другого листа, макросом
 
#
23.04.2014 14:40:15
Код
Sub копировать_из_четных_столбцов_на_другой_лист()
Dim x As Range, y As Range 
    x = 1
    y = 2
    Sheets(2).Range("x").Select
    Selection.Copy
    Sheets(1).Range("y") .Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
попытался сделать такой макрос, но не могу понять как вставить Selection.Copy в выбранный диапазон и как все это зациклить(
п.с. надеюсь правильно все оформил, в соответствии с замечанием
Изменено: Smerd - 23.04.2014 15:24:10
 
Перейти    
Копировать столбец значений из одного листа в четные столбцы другого листа, макросом
 
#
23.04.2014 12:57:17
Добрый день, уважаемые форумчане!
Пытался справиться сам, но запутался в макросе(
Есть книга с двумя листами 1 и 2, на первом листе заполнены нечетные столбцы,а четные пустые. На втором листе просто матрица значений. Необходимо автоматически копировать каждый столбец из лист(2) в четные столбцы лист(1).
например: sheets(2).range("A1"_копировать и вставить в sheets(2).range("B1"), а sheets(2).range("B1") копировать и вставить в sheets(2).range("D1"),
и так далее пока не кончатся столбцы со значениями на листе(2)
Файл для примера прилагаю
 
Перейти    
Экспорт значений из столбцов Excel в файлы .txt, Макрос для экспорта значений из Excel в txt
 
#
21.04.2014 11:40:23
Казанский, спасибо большое! все работает, как и было необходимо!
 
Перейти    
Экспорт значений из столбцов Excel в файлы .txt, Макрос для экспорта значений из Excel в txt
 
#
18.04.2014 17:00:00
Казанский, txt должен создаваться автоматически при выгрузке в него каждого нового столбца со значениями, пример файлов, которые мы используем прикрепляю
 
Перейти    
Экспорт значений из столбцов Excel в файлы .txt, Макрос для экспорта значений из Excel в txt
 
#
18.04.2014 16:54:22
Получилось, у меня на работе проблема с выгрузкой файлов в сеть
 
Перейти    
Экспорт значений из столбцов Excel в файлы .txt, Макрос для экспорта значений из Excel в txt
 
#
18.04.2014 16:49:29
В тему сразу не дописал - нашел похожее на форуме, но не смог переделать под свою задачу: http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=55318&MID=460644&tags=&q=%D1%8D%D0%BA%D1%81%D0%BF%D0%BE%D1%80%D1%82+%D0%B2+txt&DATE_CHANGE=0&order=relevance&s=%D0%9D%D0%B0%D0%B9%D1%82%D0%B8#message460644
файл, который мне необходимо обработать прикрепить не удается, но это любой файл Exсel  со столбцами значений
 
Перейти    
Экспорт значений из столбцов Excel в файлы .txt, Макрос для экспорта значений из Excel в txt
 
#
18.04.2014 16:46:32
Здравствуйте, уважаемые форумчане.
У меня возникла производственная необходимость экспортировать данные из Excel в файлы с расширением .txt по столбцам. То есть, каждый столбец в матрице значений экспортируется в новый файл txt, который тоже должен создаваться автоматически, а его имя - номер экспортируемого из Excel  столбца.
Все, что я смог найти - это экспорт всей информации из Листа Excel в новый txt или экспорт выделенного диапазона значений в уже созданный файл.
Надеюсь, можно как то решить эту задачу.
 
Перейти    
Страницы: 1
Наверх