Рандомное автозаполнение таблицы

@ffx · Регистрация: 21.09.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте! помогите пожалуйста, я не знаю ВБА,но мне срочно нужен скрипт,помогите кому не трудно
1.Есть таблица эксель 2 страницы
2.на первой странице в столбце А записано 100 наименований организаций,в столбце Б 500 фамилий сотрудников
3.2 страница пустая
4.нужно на странице 2 записать в стоблец А случайным образом (без повторений) 333 записи организаций,при чем каждого наименования организации должно быть не меньше 4 и не больше 9
например:
налоговая
налоговая
налоговая
налоговая
налоговая
прокуратура
прокуратура
прокуратура
прокуратура
прокурату
прокуратура
и так далее пока список не будет равняться 333 записи
5.а список сотрудников записать на страницу 2 в стоблец Б просто случайным образом без повторений
ПОМОГИТЕ ПОЖАЛУЙСТА

@Kapytan · 21.10.2015, 19:54

Visual Basic

Sub Макрос1()
Worksheets(2).Activate
Cells.Select
Selection.ClearContents
Range("A1").Select
k = 0
i = 0
Randomize
Do While k < 324
    i = i + 1
    a = Int(6 * Rnd() + 4)
    For j = 1 To a
        k = k + 1
        Cells(k, 1) = Worksheets(1).Cells(i, 1)
    Next j
Loop
Do While k > 329
    k = k - 1
Loop
i = i + 1
Do While k <= 333
    Cells(k, 1) = Worksheets(1).Cells(i, 1)
    k = k + 1
Loop
For i = 1 To 500
    Do
       k = Int(500 * Rnd() + 1)
            If Cells(k, 2) = "" Then
            Cells(k, 2) = Worksheets(1).Cells(i, 2)
            Exit Do
       End If
    Loop
Next i
Range("A333").Select
End Sub

@ffx · 22.10.2015, 09:43 **[ТС]**

Огромное спасибо!

@ffx 0 / 0 / 0 Регистрация: 21.09.2015 Сообщений: 6
		1
	Рандомное автозаполнение таблицы 21.10.2015, 10:05. Показов 1682. Ответов 2 Метки нет (Все метки) Здравствуйте! помогите пожалуйста, я не знаю ВБА,но мне срочно нужен скрипт,помогите кому не трудно 1.Есть таблица эксель 2 страницы 2.на первой странице в столбце А записано 100 наименований организаций,в столбце Б 500 фамилий сотрудников 3.2 страница пустая 4.нужно на странице 2 записать в стоблец А случайным образом (без повторений) 333 записи организаций,при чем каждого наименования организации должно быть не меньше 4 и не больше 9 например: налоговая налоговая налоговая налоговая налоговая прокуратура прокуратура прокуратура прокуратура прокурату прокуратура и так далее пока список не будет равняться 333 записи 5.а список сотрудников записать на страницу 2 в стоблец Б просто случайным образом без повторений ПОМОГИТЕ ПОЖАЛУЙСТА 0

@ffx 0 / 0 / 0 Регистрация: 21.09.2015 Сообщений: 6
	22.10.2015, 09:43 [ТС]	3
	Огромное спасибо! 0

Рандомное автозаполнение таблицы

Решение