alek1986
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Привет, кто может подсказать с написанием макроса и возможно ли такое? Вообщем ситуация такова, в столбце "А" есть определённые значения, допустим 1,2,3,4 и т.д. в столбец "В" нужно импортировать данные а,б,в,г и т.д. со смещением строк. То есть в ячейке А1 значение 1, импортирую данные из текстового редактора в столбец "В" их n-строк (например 5 строк), получается в столбце "А" строки должны сместиться на n-строк (на эти 5 строк) и цифра 2, которая была в ячейке "А2" сместится в ячейку "А7". Нашел макрос на импорт из текстового файла, а со смещением строк разобраться не могу Код: Application.Goto Reference:="Макрос1" Range("J12").Select Dim TextLine i = 1 Open "C:\Macros\#1.txt" For Input As #1 Do While Not EOF(1) Line Input #1, TextLine ThisWorkbook.Worksheets("Лист1").Cells(i, 1).Value = TextLine i = i + 1 Loop Close #1 End Sub | Код: Application.Goto Reference:="Макрос2" Range("J12").Select Dim TextLine i = 1 Open "C:\Macros\#2.txt" For Input As #2 Do While Not EOF(2) Line Input #2, TextLine ThisWorkbook.Worksheets("Лист1").Cells(i, 2).Value = TextLine i = i + 1 Loop Close #2 End Sub |
| Всего записей: 25 | Зарегистр. 12-01-2010 | Отправлено: 12:15 04-03-2013 | Исправлено: alek1986, 12:17 04-03-2013 |
|