Excel中的VBA编码

Question

我对VBA编码非常陌生。我有两张在excel中。

表1 - 列包括CTC，TCC（A1，B1） 行包含CTC TCC和细节（A2，B2）

表2 - 行包括CTC TCC和。它在TCC计算的这个页面中。 B1从表1的第一行取得CTC。然后进行计算以计算B3中的TCC。

要求： 为了计算TCC，我们需要粘贴第一CTC在片1片2得到的已TCC应该出现在下TCC柱片1 CTC Column.The结果。

这是我试过的代码：

Sub Button1_Click() 

    Dim value1 As Integer 
    Dim value2 As Integer 

    For i = 1 To 6 

     value1 = ThisWorkbook.Sheets(1).Range("Ai").Value 

     Sheet2.Range("B1") = value1 

     Sheet1.Cells(B, i) = ThisWorkbook.Sheets(2).Range("B3").Value 

    Next i 
End Sub 

Answer 1

我觉得这个代码是你想要的。 让我知道，如果它不同，你所期望的。

Sub Button1_Click() 
    Dim value1 As Integer 
    Dim value2 As Integer 
    For i = 1 To 6 
     value1 = ThisWorkbook.Sheets(1).Range("A" & i).Value ' we can't make Range("Ai").Value 
     Sheet2.Range("B1").Value = value1 
     Sheet1.Cells(i, Range("B1").Column).Value = Sheet2.Range("B3").Value 'Cells(row, columns), that is the correct format for cells 
    Next i 
End Sub 

Answer 2

这听起来像你想下面的代码：“表1”和“表2”的

Sub Button1_Click() 
    Dim i As Long 
    For i = 1 To 6 
     ThisWorkbook.WorkSheets("Sheet 2").Range("B1").Value = ThisWorkbook.WorkSheets("Sheet 1").Cells(i, "A").Value 
     ThisWorkbook.WorkSheets("Sheet 1").Cells(i, "B").Value = ThisWorkbook.WorkSheets("Sheet 2").Range("B3").Value 
    Next i 
End Sub 

我用工作表名称，因为这是你在你的问题。如果您的工作表实际上被称为“工作表1”和“工作表2”，那么这些应该更改。

---

很难知道你有多接近是不知道该CodeName你的床单使用，他们出现在工作簿顺序。但是您使用Range("Ai")肯定是错误的 - 它需要是Range("A" & i)或Cells(i, "A")（或Cells(i, 1)）。

---

更新处理在工作表 “表1” 列中的所有值：

Sub Button1_Click() 
    Dim i As Long 
    With ThisWorkbook.WorkSheets("Sheet 1") 
     For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row 
      'Check so that we only process non-empty cells 
      '(just in case there is an empty cell part-way through the data) 
      If Not IsEmpty(.Cells(i, "A").Value) Then 
       ThisWorkbook.WorkSheets("Sheet 2").Range("B1").Value = .Cells(i, "A").Value 
       .Cells(i, "B").Value = ThisWorkbook.WorkSheets("Sheet 2").Range("B3").Value 
      End If 
     Next i 
    End With 
End Sub