Question

我正在尝试使用VBScript执行下面的Excel功能

B = A：A * 0.5

将A列中的所有值乘以0.5并将这些值粘贴到B列中。我想在Excel之外执行此操作。

在@GarysStudent的回答的帮助下，我能够在原始列A列中进行乘法和粘贴。理想情况下，我想将相乘的结果粘贴到B列中。

下面是在同一列中乘以和粘贴值的VBScript代码

Imports Excel = Mircosoft.Office.Interop.Excel
Public Class Form1
 Dim objExcel, objXLWorkbook, objXLWS, RNGE, LNG, lRow, nRow
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  objExcel = CreateObject("Excel.Application")
  objXLWorkbook = objExcel.Workbooks.Open("C:\filename.xlsx")
  objXLWS = objXLWorkbook.Worksheets(1)
  objExcel.Visible = True
  'Adding Helper Cell to hold the multiplication value
  objXLWS.Range("Z100") = 0.5
  With objXLWS
    LNG = .Cells(.Rows.Count, "A").End(Excel.XlDirection.xlUp).Row  
    RNGE = .Range("A2:A" & LNG)
    .Range("Z100").Copy()
    RNGE.PasteSpecial(Excel.XLPasteType.xlPasteAll, Excel.XlPasteSpecialOperation.xlPasteSpecialOperationMultiply)
  End With
 End Sub
End Class

Answer 1

如果您知道数据的大小，可以使用for循环，或者如果您不知道，则可以使用for循环：

Dim x As Double
x = Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Count
For i = 1 To x
Cells(i, 2).Value = Cells(i, 1).Value * 0.5
Next

这有效，但它有点慢，它计算你有多少条目然后循环。我建议使用电子表格功能来提高速度。

Answer 2

此示例使用单元格 Z100 作为＆＃34;帮助程序＆＃34;细胞：

Sub DEMO()
    Dim r As Range, N As Long
    Range("Z100").Value = 0.5
    N = Cells(Rows.Count, "A").End(xlUp).Row
    Set r = Range("A1:A" & N)
    Range("Z100").Copy
    r.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
End Sub

VBScript将excel中的列值相乘并将结果粘贴到不同的列中

2 个答案: