모든 행 값을 랜덤으로 섞기
엑셀에서 모든 행의 값을 섞어주는 코드입니다. 빨간 버튼은 행 전체를 순서를 바꿔주고 파란 버튼은 현재 열에 한해서 내부의 셀값을 섞어줍니다. Option Explicit '// mix the entire row Sub Shuffle() Dim sht As Worksheet Dim Rng As Range Dim lastRow As Long, l As Long, r As Long Dim t As Variant Randomize Application.ScreenUpdating = False Set sht = ActiveSheet lastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row For l = 1 To lastRow r = CLng(Rnd * (lastRow -..
XLS+VBA
2024. 3. 1. 01:37
최근댓글