Нашел вот такой, делает почти то что надо, только вставляет без разделителя(ТАБ) все в одну ячейку, но строки вставляет правильно...
Код
Sub CombineCsvFiles()
'updateby Extendoffice 20151015
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
К сожалению, финальным файлом будут пользоваться люди "далекие" от экселя, поэтому изначално задача поставлена в %. Так же файл будет использоваться не один раз и с разным процентом... Можно вручную добавить формулу "=Цена/(1-процент в данной строке)" в каждую строку, но в оригинальном файле более 500 строк... Спрошу по-другому: как добавить формулу в ячейку, где уже есть данные, при чем эти данные должны быть использованы в этой формуле?
Добрый день Есть вот такая задача: В примере показаны цены, к которым нужно добавить определенный процент (определяется путем изменения значения в K2) Подскажите, как подставить формулу "=Цена/(1-процент в данной строке)" в каждую ячейку, где уже есть значение. Например:
PARAGUAY 0.2475 0%
При добавлении в K2 10% цена должна увеличиться на 10%, т.е должна стать 0.27225
Большоие спасибо, вот только не получается не английский её перевести...получается как-то так: =LOOKUP(2;1/ISNUMBER(SEARCH(Sheet2!$A$2:$A$3;Sheet1!A2));Sheet2!$A$2:$A$3) Обозначил красным, то место где я не совсем понимаю...
Доброго дня Подскажите, пожалуйста, какой формулой и каким синтаксисом воспользоваться для следущего поиска: Есть столбик в котором через ; записаны адреса электронной почты, а в другом файле есть столбик с адресом электронной почты Добавляю пример, только не в двух файлах, а на двух листах. Требуется, сделать поиск адресов с листа 2 на листе 1.
Большое спасибо, вопрос со множественным вносом в бланк решен а как быть со вторым? дело в том, что номер может быть использован только один раз, поэтомы я заинтересован, чтобы он был бы удален из листа 1, или каким нибудь образом отмечен, как использованный (например окраска фона ячеек) но делаться это должно не пользователем, а экселем, как только номер переведен в бланк
Добрый день есть таблица содержащяя 3 столбика: номер серии, серийный номер и код воспользовался возможностью автоматического заполнения бланка(бланк на листе 2) первый вопрос, есть ли возможность заполнять по 6 бланков(одинаковых) за один раз, то есть отмечать 6 номеров в таблице на листе 1 и второй вопрос, есть ли возможност сделат так, что, если выбрана определённая строка, она бы удалялась с листа 1 спасибо