excel - 划分每个号码

时间:2018-06-13 09:08:15

标签: excel

我有两列A和B,这些行也是动态的和它们的值。

+---+---+
| A | B |
+---+---+
| 2 | 4 |
| 5 | 6 |
|   | 2 |
|   | 8 |
+---+---+

如何将A列中的每个值与每个B列值分开并逐个显示。 2/4 2/6 2/2 ... 5/4 5/6 ....

谢谢!

2 个答案:

答案 0 :(得分:1)

这将在C列中构建一个分区列表,其中循环遍历B列中的值列表,这些值嵌套在A列中的值列表的循环中。我假设两列中的值之间没有空格。

SELECT id,mtr,name FROM (SELECT userid,mtr,name FROM    

results_20180612_230337
LEFT JOIN table1 ON id=myid where 
partitiondate=CAST("2018-05-29" AS DATE)) LEFT JOIN `table2`  t2 
ON
(CASE
WHEN(SUBSTR(name,1,6)='000000') THEN mtr = CAST(bccbnc AS STRING)
WHEN(CHAR_LENGTH(CAST(bccbnc AS STRING))>5) THEN SUBSTR(name,1,6) =   
CAST(bccbnc AS STRING)

ELSE SUBSTR(name,1,5) = CAST(bccbnc AS STRING)
END)

只需将其添加到项目中的对象并运行即可。如果工作表更改事件中有任何代码,请先禁用事件。

答案 1 :(得分:0)

免责声明:就StackOverflow不是免费编码服务而言,通常建议关闭此类问题,因为他们do not comply with the rules

然而,只要它有点有趣,这是一些代码示例,它可以满足您的需求:

Public Sub TestMe()

    Dim rangeA As Range: Set rangeA = Range("A1:A2")
    Dim rangeB As Range: Set rangeB = Range("B1:B4")

    Dim myCell As Range
    Dim myCell2 As Range
    Dim myCell3 As Range

    Set myCell3 = Range("C1")

    For Each myCell In rangeA
        For Each myCell2 In rangeB
            myCell3 = myCell & " | " & myCell2
            myCell3.Offset(0, 1) = myCell / myCell2
            Set myCell3 = myCell3.Offset(1)
        Next myCell2
    Next myCell

End Sub

这就是在Excel中生成的内容:

enter image description here

这个想法是代码循环通过两个给定的范围在C列上写下它将要做什么,然后将计算放在D列中。