数据值的单元格循环

Question

我有一张完整的足球成绩单。

Season------Home-------Away---------Score  
2009--------Albion------Burton--------0-1  
2011--------Albion------Burton--------2-1  
2012--------Albion------Burton--------4-0  

我想为每个团队的历史制作 sheet2 相同的工作簿。 必须引用每个单元格 (r1,c1) 的数据值，然后通过将分数放入正确的季节列中来将其操作到 sheet2 中。然后循环查看下一个团队的历史等。

表 2

Home--------Away----2000-2001-2002-2003-2004-2005-2006-2007-2008-2009-2010-2011-2012  
Albion------Burton------------------------------------------------0-1-------2-1--4-0  

请有人让我开始使用 Excel2010 vba。

Answer 1

是的，我可以帮你开始。

使用Sheet.Cells(Row, Col)，您可以访问任何您喜欢的单元格。

使用For... Next 循环，您可以使用嵌套循环遍历行和列。

您可以按名称访问这两个工作表，默认情况下为 Sheet1 和 Sheet2。

您还可以使用Range 对象更有效地查找工作表中的数据；

Dim r As Range
Dim m As Range

Set r = Sheet2.Range("A1:G1") ' For the row with all your years
Set m = r.Find(Value1) ' Value1 could be the year

If Not m Is Nothing Then
    ' It was found and m.Column tells which column it is, yay!
End If

等等...stackoverflow 也充斥着一些基本问题，比如如何做这样的事情，请随意搜索。谁知道你可能会遇到从未遇到过的问题！