'row' 태그의 글 목록

엑셀에서 모든 행의 값을 섞어주는 코드입니다. 빨간 버튼은 행 전체를 순서를 바꿔주고 파란 버튼은 현재 열에 한해서 내부의 셀값을 섞어줍니다. 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 -..