sourceformatを使用した書式設定値

Question

ADMIN_ARB11の列からTest-Input_Vorschlagシートのセルにランダムな値を生成する作業コードがあります。しかし、1つの問題があります。生成された値はソース形式ではありません。誰もがApplication.ScreenUpdating = Trueの End Subの

コード

Sub Random_ARB11() 
Dim sh1 As Worksheet, sh2 As Worksheet, i As Long, j As Long, LB As Long, UB As Long 
Set sh1 = Sheets("Testfall-Input_Vorschlag") 
Set sh2 = Sheets("ADMIN_ARB11") 
Application.ScreenUpdating = False 
For j = 7 To 1000 
    LB = 2 
    If sh1.Cells(1, j) = "ARB11" Then 
     For i = 11 To 382 
      UB = sh2.Cells(Rows.Count, i - 10).End(xlUp).Row 
      **sh1.Cells(i, j) = sh2.Cells(Int((UB - LB + 1) * Rnd + LB), i - 10).Value** 
     Next 
    End If 
Next 

を変更するのに役立ちます私は.Sourcevalueに.Valueのを変更したり、そのままソース形式を保持しているそのようなことはできますか？

Answer 1

簡単な方法です（データの量によっては理想的ではないかもしれませんが）は、すべての書式設定を保持するcopyメソッドを使用することです。

sh1.Cells(i,j).Copy Destination:= sh2.Cells(Int((UB - LB + 1) * Rnd + LB),i-10)