VBA怎么以单元格参数修改为动态定位到指定那一列

WE2021

各位老师VBA怎么以单元格参数为动态定位到指定那一列？


Dim y2%, y1%, m%, n%, x As Long, 定位 As Byte
定位 = [C1]


如下是固定的怎么修改
    y1 = Worksheets("Sheet1").Range("F" & i).Value  '怎么修改动态定位哪一列
    y2 = Worksheets("Sheet1").Range("F" & (i + 1)).Value '怎么修改动态定位哪一列
上面的Y1 Y2是固定"F"列，怎么修改以C1（如10为第10列，11为第11列）单元格动态定列？
谢谢！
动态定哪一列.zip (8.13 KB, 下载次数: 7)

2023-3-7 12:53 上传

点击文件名下载附件

陆离Lowry

Columns([C1].VALUE)

洋务德雷

按照我的理解应该是用range("C1").OFFSET(rows,columns )这个来定位的吧？

3190496160

WE2021

各位老师源代码是：


Sub 定位()
Dim y2%, y1%, m%, n%, x As Long, 定位 As Byte
定位 = [C1]
Worksheets("Sheet3").Range("C5:R20") = ""
Application.ScreenUpdating = False
x = Worksheets("Sheet1").Range("A1").Value
For ia = 1 To 16
  For i = 4 To x - 1
   y1 = Worksheets("Sheet1").Range("F" & i).Value '怎么修改动态定位指定列
   y2 = Worksheets("Sheet1").Range("F" & (i + 1)).Value '怎么修改动态定位指定列
    If y1 = ia Then
    n = 4 + Application.WorksheetFunction.Match(y1, Worksheets("Sheet3").Range(Worksheets("Sheet3").Cells(5, 2), Worksheets("Sheet3").Cells(20, 2)))
   m = 2 + Application.WorksheetFunction.Match(y2, Worksheets("Sheet3").Range(Worksheets("Sheet3").Cells(3, 3), Worksheets("Sheet3").Cells(3, 18)))
  Worksheets("Sheet3").Cells(n, m).Value = Worksheets("Sheet3").Cells(n, m).Value + 1
   End If
   Next i
Next ia
Application.ScreenUpdating = True
End Sub

WE2021

3190496160 发表于 2023-3-7 14:19

老师以下是源码数据在一表，统计在二表获取动态列一表的数据
Sub 定位()
Dim y2%, y1%, m%, n%, x As Long, 定位 As Byte
定位 = [C1]'动态定列
Worksheets("Sheet3").Range("C5:R20") = ""
Application.ScreenUpdating = False
x = Worksheets("Sheet1").Range("A1").Value
For ia = 1 To 16
  For i = 4 To x - 1
   y1 = Worksheets("Sheet1").Range("F" & i).Value '需要修改此处
   y2 = Worksheets("Sheet1").Range("F" & (i + 1)).Value '需要修改此处
    If y1 = ia Then
    n = 4 + Application.WorksheetFunction.Match(y1, Worksheets("Sheet3").Range(Worksheets("Sheet3").Cells(5, 2),

Worksheets("Sheet3").Cells(20, 2)))
   m = 2 + Application.WorksheetFunction.Match(y2, Worksheets("Sheet3").Range(Worksheets("Sheet3").Cells(3, 3),

Worksheets("Sheet3").Cells(3, 18)))
  Worksheets("Sheet3").Cells(n, m).Value = Worksheets("Sheet3").Cells(n, m).Value + 1
   End If
   Next i
Next ia
Application.ScreenUpdating = True
End Sub

WE2021

陆离Lowry 发表于 2023-3-7 13:00
Columns([C1].VALUE)

老师以下是源码数据在一表，统计在二表获取动态列一表的数据
Sub 定位()
Dim y2%, y1%, m%, n%, x As Long, 定位 As Byte
定位 = [C1]'动态定列
Worksheets("Sheet3").Range("C5:R20") = ""
Application.ScreenUpdating = False
x = Worksheets("Sheet1").Range("A1").Value
For ia = 1 To 16
  For i = 4 To x - 1
   y1 = Worksheets("Sheet1").Range("F" & i).Value '需要修改此处
   y2 = Worksheets("Sheet1").Range("F" & (i + 1)).Value '需要修改此处
    If y1 = ia Then
    n = 4 + Application.WorksheetFunction.Match(y1, Worksheets("Sheet3").Range(Worksheets("Sheet3").Cells(5, 2),

Worksheets("Sheet3").Cells(20, 2)))
   m = 2 + Application.WorksheetFunction.Match(y2, Worksheets("Sheet3").Range(Worksheets("Sheet3").Cells(3, 3),

Worksheets("Sheet3").Cells(3, 18)))
  Worksheets("Sheet3").Cells(n, m).Value = Worksheets("Sheet3").Cells(n, m).Value + 1
   End If
   Next i
Next ia
Application.ScreenUpdating = True
End Sub

WE2021

洋务德雷 发表于 2023-3-7 13:04
按照我的理解应该是用range("C1").OFFSET(rows,columns )这个来定位的吧？

Dim y2%, y1%, m%, n%, x As Long, 定位 As Byte
定位 = [C1]
Worksheets("Sheet3").Range("C5:R20") = ""
Application.ScreenUpdating = False
x = Worksheets("Sheet1").Range("A1").Value
For ia = 1 To 16
  For i = 4 To x - 1
   y1 = Worksheets("Sheet1").Cells(定位 & i).Value
   y2 = Worksheets("Sheet1").Cells(定位 & (i + 1)).Value
老师我修改成如上，没有报错！但是数据统计不了

WE2021

以下是Chat GTP的回复：

在VBA中，可以使用Cells和Range函数来引用单元格、一行或一列。如果需要引用整列，可以使用以下代码来取得某列的列号：

```
Dim colNumber As Integer
colNumber = Range("A1").Column  ' A列的列号为1
```

然后可以使用Cells函数来取得特定列某一行的单元格：

```
Dim rowNumber As Integer
rowNumber = 1
Dim cellValue As String
cellValue = Cells(rowNumber, colNumber).Value  ' 取得第1行A列的值
```

同样的方式，也可以引用一整列的数据：

```
Dim columnIndex As Integer
columnIndex = 1  ' 使用列号1
Dim columnData As Range
Set columnData = Range(Cells(1, columnIndex), Cells(Rows.Count, columnIndex).End(xlUp))
```

上述代码使用了Range、Cells和Rows等函数来引用整个A列中的数据。可以通过修改columnIndex参数来引用其他列。

xunanming

WE2021 发表于 2023-3-7 16:00
各位老师源代码是：

按4楼的写法就就可以更改你定位的列.    cells(i,定位)