엑셀에서 열에 있는 내용을 랜덤하게 변환하는 방법을 MICROSOFT BING에게 물어봐서 실행하는 방법

 먼저 MICROSOFT BING에게 엑셀에서 열에 있는 내용을 랜덤하게 변환하는 코드를 만들어 주라고 함.

그러면 코드를 만들어 주고 VBA에 붙여 넣으라고 함. VBA는 엑셀에서 ALT+F11을 누르면 나오는데 그 창에서 삽입에서 모듈을 선택해서 들어간다. 그 다음 AI가 만들어준 코드를 붙여 넣기 한다. 그후 ALT+F8을 누른 후 실행 버튼을 누르면 랜덤하게 배열이 완료된다. 처음 해보는 거지만 AI를 이용하니 뭐든 쉽게 알수 있어서 좋다.

아래에 랜덤하게 배열하는 코드를 첨부한다.

Sub RandomizeColumnA()
    Dim rng As Range
    Dim i As Long
    Dim Temp As Variant
    Dim RandomRow As Long
    Dim LastRow As Long

    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Set rng = Range("A1:A" & LastRow)

    Randomize

    For i = 1 To rng.Rows.Count
        RandomRow = Int((rng.Rows.Count - i + 1) * Rnd + i)
        Temp = rng.Cells(i, 1)
        rng.Cells(i, 1) = rng.Cells(RandomRow, 1)
        rng.Cells(RandomRow, 1) = Temp
    Next i
End Sub