Если у вас последняя версия Excel, в E2 введите формулу массива:
=TEXTJOIN(",",TRUE,ROW(INDIRECT(C2 & ":" & D2)))
и скопируйте вниз:
Формулы массива должны вводиться с помощью Ctrl + Shift + Enter, а не только клавиша Enter .
В противном случае введите следующую пользовательскую функцию в стандартном модуле:
Public Function CSList(n1 As Long, n2 As Long) As String
Dim i As Long
For i = n1 To n2
CSList = CSList & "," & i
Next i
CSList = Mid(CSList, 2)
End Function
Затем в E2 введите:
=CSList(C2,D2)
и скопируйте вниз:
Пользовательские функции (UDF) очень просты в установке и использовании:
- ALT-F11 открывает окно VBE
- ALT-I ALT-M открывает новый модуль
- вставьте материал и закройте окно VBE
Если вы сохраните книгу, UDF будет сохранен вместе с ней.
Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx
Чтобы удалить UDF:
- откройте окно VBE, как указано выше
- очистить код
- закройте окно VBE
Чтобы использовать UDF из Excel:
=CSList(A1,B1)
Чтобы узнать больше о макросах в целом, смотрите:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
а также
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
а подробности о UDF смотрите в:
http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx
Макросы должны быть включены, чтобы это работало!