Вы назвали randint следующим образом:
randint(1,0)
Это говорит randint, чтобы вернуть значение, начинающееся с 1 и заканчивающееся на 0. Диапазон чисел от 1 до нуля - это то, что вы, несомненно, реализуете пустой диапазон , Следовательно, ошибка:
empty range for randrange()
В VBA вы объединяете строки с символом &
. Во-вторых, для доступа к столбцу K, когда вы перебираете столбец A, вы можете просто сделать .Offset(row,col)
.
Итак, ваша строка кода становится:
WSNew.Name = "Sample " & cell.Value & " NIIN " & cell.Offset(0,10).Value
'SheetName = Sample + A7 + NIIN + K7
Sample xx NIIN xxxxxx
, означает ли это, что вы хотите, чтобы первые два символа ячейки K7 были до «NIIN»? а затем последние 6 символов ячейки K7? – Marcucciboy2 13 July 2018 в 15:50