单元格的选取和赋值，都是有规则，后续肯定是要专门写一个赋值和区域选择的内容。
 
简单的区域选择和赋值
 

Sub 单元格复制()
    Range("H8").Resize(5, 3).Value = Range("A1").Resize(5, 3).Value
End Sub
 
Resize函数，是用于调整指定区域的大小，返回代表调整后的区域，也就是原来有个区域，返回值是另外一个区域。
 
具体语法：Range.Resize(RowSize,ColumnSize)。RowSize代表重置后的行数，Column代表重置后的列数，如果参数省略，则代表新区域的行数或者列数保持不变。
 

 
 
就这么多，更多详细内容，请参考一下内容：
 
VBA中Resize函数详解
 
 

 

(function () {
	function resize() {
		//设计稿的宽度
		const desiginWidth = 375;
		//视口的宽度
		const windowWidth = window.innerWidth;
		//html节点
		const html = document.documentElement;
		//计算  -- 字体大小
		html.style.fontSize = 100 / desiginWidth * windowWidth + 'px';
	}
	resize();
	//判断是否有横屏事件，有横屏优先执行横屏，没有横屏，执行resize事件
	window.addEventListener('onorientationchange' in window ? 'onorientationchange' : 'resize', resize);
	//监听文档加载完成
	window.addEventListener('DOMContentLoaded', resize)
}(document, window));
 
使用在main.js 引入即可
 
import '@/assets/lib/resize.js'

Module Module1

    Sub Main()
        Dim arr() As Int32 = {1, 2, 3}
        PrintArr(arr)

        arr = DirectCast(ResizeArray(arr, 5), Int32())
        PrintArr(arr)

        arr = DirectCast(ResizeArray(arr, 2), Int32())
        PrintArr(arr)

        Console.ReadKey()
    End Sub
    Public Function ResizeArray(ByVal origArray As Array, ByVal desiredSize As Int32) As Array
        Dim t As Type = origArray.GetType().GetElementType()

        Dim newArray As Array = Array.CreateInstance(t, desiredSize)
        Array.Copy(origArray, 0, newArray, 0, Math.Min(origArray.Length, desiredSize))
        Return newArray
    End Function
    Sub PrintArr(ByVal arr)
        For Each x In arr
            Console.Write(x & "  ")
        Next
        Console.WriteLine()
    End Sub
End Module
 

 Option Explicit
 
Private Sub Form_Resize()
 Call Image_Scaling(Me, App.Path & “\1.jpg”)
 End Sub
 
'函数(显示图片的容器，图片路径)
 Private Sub Image_Scaling(P As Object, URL As String)
 Dim RX1 As Long, RY1 As Long, RX2 As Long, RY2 As Long, Pic As New StdPicture
 Dim ReturnWidth As Long, ReturnHeight As Long
 Set Pic = LoadPicture(URL)
 P.AutoRedraw = True
 If (Pic.Width > P.ScaleWidth Or Pic.Height > P.ScaleHeight) Then
 If Pic.Width / Pic.Height >= P.ScaleWidth / P.ScaleHeight Then
 ReturnWidth = P.ScaleWidth
 ReturnHeight = P.ScaleWidth / Pic.Width * Pic.Height
 Else
 ReturnWidth = P.ScaleHeight / Pic.Height * Pic.Width
 ReturnHeight = P.ScaleHeight
 End If
 Else
 ReturnWidth = Pic.Width
 ReturnHeight = Pic.Height
 End If
 P.Cls
 RX1 = (P.ScaleWidth - ReturnWidth) / 2 'X
 RY1 = (P.ScaleHeight - ReturnHeight) / 2 'Y
 RX2 = RX1 + ReturnWidth - 8
 RY2 = RY1 + ReturnHeight - 8
 P.PaintPicture Pic, RX1, RY1, ReturnWidth, ReturnHeight
 P.Line (RX1, RY1)-(RX2, RY2), RGB(255, 0, 0), B
 End Sub