亂數帶入RAND，如何試算出小數點後面都去掉

吳瑩瑩

請問各位大大～～
以下圖示想問，如亂數帶入=RAND()*(215-(1))+(1).......     EXCEL儲存格內如何試算出小數點後面都去掉??
我不想以儲存格各式->數值->內設定

哪個大大可以救我~~[attachimg]32247[/

吳瑩瑩

回復 8# ML089


    謝謝貓貓大大~~~

ML089

回復 6# 吳瑩瑩

Sub ex1()
    '亂數計算後取整數
    Range("A7:A26") = "=int(rand()*(215-(1))+(1))"
    Range("A7:A26") = Range("A7:A26").Value

    '排序
    Range("a7:a26").Sort key1:=Range("a7"), order1:=xlAscending, Header:=xlNo
   
    '取唯一
    ActiveSheet.Range("A7:A26").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

hcm19522

https://blog.xuite.net/hcm19522/twblog/589216489

吳瑩瑩

回復 5# ML089


    謝謝貓貓大大～~~  哪可以程式加上不重複的數嗎?　也就是說亂數＋不重複＋排序

ML089

回復 1# 吳瑩瑩

Sub ex1()
    '亂數計算後取整數
    Range("A7:A26") = "=int(rand()*(215-(1))+(1))"
    Range("A7:A26") = Range("A7:A26").Value

    '排序
    Range("a7:a26").Sort key1:=Range("a7"), order1:=xlAscending, Header:=xlNo
End Sub

ML089

回復 1# 吳瑩瑩

Sub ex1()
Range("A7:A26") = "=int(rand()*(215-(1))+(1))"
Range("A7:A26") = Range("A7:A26").Value
End Sub

吳瑩瑩

回復 2# ikboy


  大大~~  無法也!!!

ikboy

1. int(Rand().........)

複製代碼