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 |
|
