행이든 열이든 원칙은 똑같다. 보조 행 또는 열을 추가하고 무작위 함수 rand () 를 사용하여 값을 가져온 다음 이 행 또는 열을 기준으로 정렬해야 합니다.
= = = = = = = = = =
하위 BBB ()
A 를 정수로 어둡게 합니다
Dim b 는 정수입니다
Dim c 는 정수입니다
A = 워크시트 기능. CountA(Range("a 1:a32 "))
C = 1
C<= a 에서
B = Int(Rnd * a)+1
If 셀 (b, 1) 입니다. 가치<& gt ""그럼
셀 (b, 1). 고르다
선택。 이곳의' 베끼기' 가 바뀌었는데, 원래는 베끼는 것이 아니라 자르는 것이었다.
세포 (c, 3). 고르다
ActiveSheet 입니다. 붙여 넣기
C = c+1
기타
만약 ... 끝날거야
고리
끝단 접합