VBA 将某一行连续的读个单元格 选择性粘贴成数值形式到另一行

### 回答1：
的同样位置，应该怎么做？

你可以使用VBA的循环语句，将要读取的单元格存放在一个数组中，然后使用粘贴操作将其粘贴到另一行的相应位置。以下是一段示例代码：

Sub CopyValues()
Dim sourceRange As Range
Dim targetRange As Range
Dim cell As Range
Dim valueArray() As Variant
Dim i As Integer

'定义源单元格和目标单元格范围
Set sourceRange = Range("A1:A10")
Set targetRange = Range("B1:B10")

'将源单元格的值存储到数组中
ReDim valueArray(sourceRange.Count)
i = 1
For Each cell In sourceRange
valueArray(i) = cell.Value
i = i + 1
Next cell

'将数组中的值粘贴到目标单元格
i = 1
For Each cell In targetRange
If Not IsEmpty(valueArray(i)) Then
cell.Value = valueArray(i)
End If
i = i + 1
Next cell
End Sub

注意：以上代码仅供参考，具体实现可能需要根据实际情况进行调整。

### 回答2：
在VBA中，可以使用Range对象和循环来将某一行连续的读取单元格，并选择性地粘贴成数值形式到另一行。

首先，需要定义源数据的范围和目标数据的范围。源数据范围可以通过指定起始和结束单元格的位置来定义，例如"Range("A1:F1")"表示从A1到F1的单元格范围。目标数据范围可以通过指定起始单元格的位置来定义，例如"Range("A2")"表示A2单元格。

接下来，可以使用For Each循环遍历源数据范围内的每个单元格。在循环内部，可以使用PasteSpecial方法将每个单元格的值粘贴为数值形式到目标数据范围中。其中，需要使用Value属性来获取原始单元格的值，并将其作为参数传递给PasteSpecial方法的Value参数。

以下是一个简单的示例代码：

Sub CopyAndPasteValues()
Dim sourceRange As Range
Dim targetRange As Range
Dim cell As Range

Set sourceRange = Range("A1:F1")
Set targetRange = Range("A2")

For Each cell In sourceRange
If IsNumeric(cell.Value) Then
targetRange.Value = cell.Value
End If
Set targetRange = targetRange.Offset(0, 1)
Next cell
End Sub

在上述示例中，原始数据范围为A1:F1，目标数据范围为A2。循环遍历源数据范围内的每个单元格，并使用IsNumeric函数检查其值是否为数值类型。如果是数值类型，则将其值粘贴为数值形式到目标数据范围中，否则不进行操作。在每次循环结束后，目标数据范围通过Offset方法向右移动一列，以便粘贴下一个单元格的数值。

以上就是VBA中将某一行连续的读取单元格，并选择性地粘贴成数值形式到另一行的方法。

### 回答3：
VBA（Visual Basic for Applications）是一种宏编程语言，可以用于在Microsoft Office应用程序中自动化任务。如果要使用VBA将某一行连续的单元格选择性粘贴成数值形式到另一行，可以按照以下步骤进行操作。

首先，打开你需要进行操作的Excel文件。然后按下ALT + F11组合键，打开VBA编辑器。

在VBA编辑器中，找到并双击适用于当前工作簿的项目（通常是VBAProject（你的文件名.xlsm）），以展开其内容。

在项目的内容中，双击“这个工作簿”以打开代码编辑器。

在代码编辑器中，先选择适当的工作表。例如，如果要在Sheet1进行操作，可以在左上角的下拉菜单中选择Sheet1。

然后，你可以编写以下代码来实现将一个连续的单元格选择性粘贴成数值形式到另一行。

Sub PasteAsValues()
    Dim rngSource As Range
    Dim rngDestination As Range
    Dim cell As Range
    
    ' 设置源单元格范围
    Set rngSource = Sheet1.Range("A1:E1")
    
    ' 设置目标单元格范围
    Set rngDestination = Sheet1.Range("A2:E2")
    
    ' 遍历源范围的每个单元格
    For Each cell In rngSource
        ' 如果源单元格的值为数字，则将其粘贴为数值形式到目标单元格
        If IsNumeric(cell.Value) Then
            rngDestination.Value = cell.Value
            Set rngDestination = rngDestination.Offset(0, 1) ' 将目标范围向右移动一列
        End If
    Next cell
End Sub

请确保将代码中的Sheet1更改为适用的工作表名。

完成代码编写后，按下F5键或点击运行按钮来执行该代码。这将会将源范围中的数值单元格选择性粘贴为数值形式到目标范围。

通过以上的VBA代码，你可以将某一行连续的单元格选择性粘贴成数值形式到另一行。