Losowo wstaw wartości z określonej listy lub kolumny (bez powtórzeń) w programie Excel

Kutools dla Excela Wstaw losowe dane Narzędzie umożliwia użytkownikom programu Excel losowe wstawianie wartości z określonej listy lub kolumny w programie Excel.

Poniższy kod makra VBA może pomóc w dodaniu tła lub koloru wypełnienia dla każdej komórki w określonym zakresie z losowymi kolorami. Możesz wykonać następujące czynności:

Krok 1: Naciśnij inny + F11 klawisze, aby otworzyć okno Microsoft Visual Basic for Applications.

Krok 2: Kliknij Wstaw> Moduł, a następnie wklej następujący kod VBA do otwierającego okna modułu.

VBA: dodaj kolor tła lub wypełnienia dla komórek z losowym kolorem

Sub TrimExcessSpaces()
Dim rng As Range
Dim WorkRng As Range
Dim xRed As Byte
Dim xGreen As Byte
Dim xBule As Byte
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
xRed = Application.WorksheetFunction.RandBetween(0, 255)
xGreen = Application.WorksheetFunction.RandBetween(0, 255)
xBule = Application.WorksheetFunction.RandBetween(0, 255)
rng.Pattern = xlSolid
rng.PatternColorIndex = xlAutomatic
rng.Interior.Color = VBA.RGB(xRed, xGreen, xBule)
Next
End Sub

Krok 3: Naciśnij F5 lub kliknij run przycisk, aby uruchomić to makro VBA.

Krok 4: Teraz pojawia się okno dialogowe, po prostu wybierz zakres, w którym chcesz dodać tło z losowymi kolorami, a następnie kliknij OK przycisk.

Teraz zobaczysz, że wszystkie komórki w określonym zakresie są losowo wypełnione różnymi kolorami. Zobacz poniższy zrzut ekranu:

W niektórych przypadkach może być konieczne dodanie koloru tła do losowo wybranych komórek w określonym zakresie. Aby to zrobić, możesz wypróbować Kutools dla programu Excel Sortuj zakres losowo narzędzie, a następnie dodaj kolor tła dla tych losowych komórek.

Krok 1: Wybierz zakres, w którym chcesz losowo znaleźć komórki i dodaj kolor tła.

Krok 2: Kliknij Kutools > Zakres > Sortuj zakres losowo.

Krok 3: W otwartym oknie dialogowym Sortuj zakres losowo przejdź do Wybierz wpisz liczbę w Liczba komórek do wyboru pudełko, sprawdź Wybierz losowe komórki opcję i kliknij przycisk OK przycisk. Zobacz poniższy zrzut ekranu:

Krok 4: Teraz określona liczba komórek jest losowo wybierana w określonym zakresie. Następnie kliknij strzałka oprócz Kolor wypełnienia Przycisk na Strona Główna i wybierz kolor tła z listy rozwijanej.

Teraz zobaczysz, że kolor tła jest dodawany do losowo wybranych komórek, jak pokazano poniżej:

Losowe sortowanie komórek w kolumnie lub zakresie

Wybierz komórki losowo

Generuj losowe ciągi